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Initialization for record locking system 

EMT to open shared file uiith access protection 

open channel to shared file 

save channel status < . SAVESTATUS) 

reopen a channel <. REOPEN) 

lock a block with ujait 

lock a block with status 

unlock all blocks for a channel 

unlock a single block 
EMT to check for shared file modification 
Initialize a new CDB 

Check for file open access conflicts 
Close a shared file channel 
Try to lock a block 

See if a block is locked by another job 
Wait for a locked block 
Unlock all blocks for a channel 
Unlock a specific block 

Restart a job that is waiting for a lock 
Close a CDB 
Free a FDD 

Locate a CDB for a channel 
Locate a FDB for a file 
Monitor writes to shared files 
Caching Routines *«■ 

- Try to read data from cache 

- Update cache following read 

- Check for writes to shared file data cache 

- Try to find data cache descriptor for data block 

- Release all data cache entries for a file 

- Release a data cache entry 

- Locate a free data cache descriptor 

- Increment use count for data cache entry 

- Move data from cache to user's buffer 

- Move data from user's buffer to cache 

- Reset data cache statistics 
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.TITLE TSLOCK Shared file access control 
. ENABL LC 
. DSABL GBL 

Copyrictht (c) 1976, 1977, 1978/ 1979, 1980, 1981, 1982, 1983, 1984, 1985. 

SM-i Computer Systems, Inc. 
Nashville, Tennessee 

Written by Phil Sherrod. 

The routines in this module perform management 

functions such as record (block) locking for shared files. 

. CSECT TSLOCK 
Macro calls 

. MCALL . ADDR 
Global definitions 

. GLOBL DCCSIZ, TSLOCK 

Global references 

. GLOBL LSTATE, LPR I , ENQTL 

. GLOBL FC*CHN, FC*FDB, FC*FLK 

. GLOBL FCfCLK, FC*LBN, FL*ACT, FC*UN, FC*ACC, FL*SPN 

. GLOBL DCTRD, DCCRD, FL$NDC, lOWAIT, DC$BLK, DCTWR 

. GLOBL DCCWR, DCTOTU, VALADW, DC AGE, NUMCDB 

. GLOBL FF*FID, FF*CDB, FF*FWD, FF*FLK 

. GLOBL FW*DBN, FW*UN, FW*WLK, VMXSF, VMXSFC, NLINES 

. GLOBL VMLBLK, EMTBLK, CORUSR, CHNADR, VNUMDC, DC*«SZ 

. GLOBL JCDB, CHNNUM, NUMDCD, LOKCSH 

. GLOBL FC*LBN. FF«*SZ. FW**SZ, DC*NXT, DC*PAR 

. GLOBL LDBASE, LOKMEM, VPAR5, DC*FDB, DC*USE, DC*LNK 

. GLOBL CHKABT, QHIPRI, QNSPND, S*SFWT 

. GLOBL FLfEFL, FT*EFL, FF*NLB, FF«FLG, FC*FLG 

. GLOBL FF*DCD 

. GLOBL LDDEVX, LDPDEV 

. GLOBL C. CSW, C. SBLK, C. DEVQ 

. GLOBL CS*OPN, SETERR, EMTX IT, KPAR5, FC**SS, FC*NLB, CS^NMX 

Macro to map kernel par 5 to a specified region 

. MACRO MAPTO BASE 
MOV BASE, e#KPAR5 
. ENDM MAPTO 

Module header. Must be first data in segment. 
TSLOCK: . RAD50 /LOK/ ; System overlay region ID name 

Table of offsets to entry points in this module 
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58 000002 

59 000004 

60 000006 

61 000010 

62 000012 

63 000014 

64 000016 

65 000020 

66 000022 

67 000024 

68 000026 

69 000030 

70 000032 

71 000034 

72 000036 



000112 
000552 
000560 
001136 
00 1 200 
001414 
00 1 470 
001574 
001622 
001726 
002246 
004630 
003706 
005000 
005162 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



LQKINI 

DOOPAP 

DOCOPN 

SFSVST 

SFRSST 

DORLK 

DOTLK 

DOCULK 

DOULKl 

DOSFCK 

SFCLS 

SFWRIT 

CLSCDB 

DCRDl- 

DCRD2 



TSLOCK 
TSLOCK 
TSLOCK 
TSLOCK 
TSLOCK 
TSLOCK 
TSLOCK 
-TSLOCK 
-TSLOCK 
-TSLOCK 
TSLOCK 
-TSLOCK 
-TSLOCK 
TSLOCK 
TSLOCK 
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4 
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5 


000001 


6 


000002 


7 


000003 


S 


000004 



> Define symbols for returned error codes 



ECO 
ECl 
EC2 
EC 3 
EC 4 



0. 
1. 
2. 
3. 
4. 
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Shared file open access protection table. 
Access-protection enable flags: 



3 








4 








5 








6 




000001 




7 




000002 




S 




000004 




9 




000010 




10 




000020 




11 




000040 




12 








13 








14 








15 








16 








17 








IB 








19 








20 








21 








22 








23 


000040 


040 




24 


000041 


020 




25 


000042 


010 




26 


000043 


004 




27 


000044 


002 




28 


000045 


001 




29 








30 








31 








32 








33 


000046 


377 




34 


000047 


377 




35 


000050 


365 




36 


000051 


375 




37 


000052 


360 




38 


000053 


374 




39 








40 








41 








42 








43 


000054 


000000 


000000 


44 


000060 


000000 


000000 


45 


000064 


000000 


000000 


46 


000070 


000000 


000000 


47 


000074 


000000 


000000 


48 


000100 


000000 




49 


000102 


000000 




50 


000104 


000000 




51 








52 








53 








54 


000106 


000000 




55 


000110 


000000 





AC*SU 


rr 


1 


AC*SI 


r.~ 


2 


AC*PU 


=-•; 


4 


AC*PI 


=r 


10 


AC*EU 


.-r 


20 


AC*EI 


:= 


40 



Shared update 
Shared input 
Protected update 
Protected input 
Exclusive update 
Exclusive input 



Format of access code passed from user to us: 

Bit : 0==> inputs !=■-=> update. 
Bits 1--2: 0=~> Exclusive, 

1==> Protected, 

2~-> Shared. 
Bit 8 1==> Suppress data caching. 

Table to convert user access code into AC* access bits. 



iExclusive input 
jExclusive update 
; Protected input 
; Protected update 
; Shared input 
{Shared update 



Table of access exclusion masks. 

(Bit set implies that access type is denied) 



ACCBIT: 


. BYTE 


AC*EI 




. BYTE 


ACfEU 




. BYTE 


AC*PI 




. BYTE 


AC*PU 




. BYTE 


AC«SI 




. BYTE 


AC*SU 



ACCMSK: 



BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
EVEN 



•■■'C<0> » Exclusive input 

"C<0> ; Exclusive update 

•'^C<AC*PI+AC'*S.I> ; Protected input 
•'^C<CAC*SI> i Protected update 

•'^C<AC*PI+AC*PU+AC*SH-AC$SU> ; Shared update 
•'^C<AC*SI+AC«SU> J Shared update 



Data structure list heads 

Head of free FDB list 

Head of active FDB list 

Head of free CDB list 

Head of free wait element list 

Head of list of data cache descriptors 

Block being read or written 

Address of user's buffer 

Number of words being read or written 

-word file ID for file to which record locking operation is being directed 



FFFREE 


. WORD 


0, 





FFHEAD 


. WORD 


0, 





FCFREE 


. WORD 


0, 





FWFREE 


. WORD 


0, 





DCDBAS 


. WORD 


0, 





CBLOCK 


. WORD 







CBUF: 


. WORD 







CWORDS 


. WORD 








CURFID: . WORD 
. WORD 



{Device index in low byte, unit # high byte 
{Starting block number of file on phys device 
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1 

2 








3 








4 
5 








6 


000112 


010146 




7 


000114 


010246 




a 


000116 


010346 




9 


000120 


010446 




10 


000122 


010546 




11 
12 
13 


000124 


013746 


OOOOOOG 








14 








15 


000130 


012704 


0000000 


16 


000134 


013705 


OOOOOOG 


17 








18 








19 








20 


000140 


012701 


OOOOOOG 


21 


000144 


010467 


177720 


22 


000150 


010567 


177716 


23 


000154 


012700 


177777G 


24 


000160 


001407 




25 


000162 


004767 


000272 


26 


000166 


010462 


OOOOOOG 


27 


000172 


010562 


000002G 


28 


000176 


077007 




29 


000200 


004767 


000272 


30 








31 








32 








33 


000204 


010467 


177644 


34 


000210 


010567 


177642 


35 


000214 


012701 


OOOOOOG 


36 


000220 


013700 


OOOOOOG 


37 


000224 


005300 




38 


000226 


003407 




39 


000230 


004767 


000224 


40 


000234 


010462 


OOOOOOG 


41 


000240 


010562 


000002G 


42 


000244 


077007 




43 


000246 


004767 


000224 


44 








45 








46 








47 


000252 


010467 


177606 


48 


000256 


010567 


177604 


49 


000262 


013701 


OOOOOOG 


50 


000266 


006301 




51 


000270 


062701 


OOOOOOG 


52 


000274 


013700 


OOOOOOG 


53 


000300 


005300 




54 


000302 


003407 




55 


000304 


004767 


000150 


56 


000310 


010462 


OOOOOOG 


57 


000314 


010562 


000002G 



SBTTL LOKINI 



Initialization for record locking system 



LOKINI is called during system initialization to initialize the 
record lockinq data base. 



LOKINI: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2. -<SP) 
R3, -(SP) 
R4, -<SP) 
R5, -<SP) 
e#KPAR5, -<SP> 



Initialize pointer to data area 



MOV #VPAR5* R4 
MOV €#LOKMEM, R5 



; Get virtual addr to use to access data 
i Get physical 64-byte blk # of data area 



Allocate space for wait queue elements 



1*: 



?*: 



MOV 


#FW**SZ. Rl 


MOV 


R4, FWFREE 


MOV 


R5, FWFREE+2 


MOV 


#NLINES-1, RO 


33 EQ 


2* 


CALL 


ALLOCL 


MOV 


R4, FW*WLK<R2) 


MOV 


R5, FW*WLK+2(R2) 


SOB 


RO, 1* 


CALL 


ALLOC 



Allocate FOB tables 



4*: 



3*: 



MOV 


R4, FFFREE 


MOV 


R5, FFFREE+2 


MOV 


#FF**SZ,R1 


MOV 


@#VMXSF> RO 


DEC 


RO 


BLE 


3* 


CALL 


ALLOCL 


MOV 


R4, FF*FLK(R2) 


MOV 


R5, FF*FLK+2<R2) 


SOB 


RO, 4* 


CALL 


ALLOC 



Allocate CDB tables 



6*: 



MOV 


R4, FCFREE 


MOV 


R5, FCFREE+2 


MOV 


@#VMLBLK, Rl 


ASL 


Rl 


ADD 


#FC*LBN>R1 


MOV 


€!#VMXSFC, RO 


DEC 


RO 


BLE 


5* 


CALL 


ALLOCL 


MOV 


R4, FC*CLK(R2) 


MOV 


R5, FC*CLK+2<R2) 



Get size of a tuait queue element 
Init head of free list 

Get # elements to allocate - 1 
Br if only one element to allocate 
Allocate space for an element 
Make previous one point to new one 

i Loop if more to allocate 
; Allocate last one 



Set pointer to 1st free FDB 

Get size of each entry 

Get # to allocate 

Minus one 

Br if only one wanted 

Allocate space 

Make previous point to new one 

Loop if more to allocate 
Allocate space for last one 



iSet pointer to 1st free one 

Get max # blocks each chan can lock 

Reserve two bytes per locked block 

Add space needed by rest of entry 

Get # to allocate 

Minus one 

Br if only one wanted 

Allocate space 

Make previous entry point to new one 



TSLOCK 
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file access cont 
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— Initialization for re 


58 


000320 


077007 




59 


000322 


004767 


000150 


60 








61 








62 








63 


000326 


013700 


0000000 


64 


000332 


001442 




65 


000334 


010467 


177534 


66 


000340 


010567 


177532 


67 


000344 


012701 


OOOOOOG 


68 


000350 


005300 




69 


000352 


003407 




70 


000354 


004767 


000100 


71 


000360 


010462 


OOOOOOG 


72 


000364 


010562 


000002G 


73 


000370 


077007 




74 


000372 


004767 


000100 


75 








76 








77 








78 


000376 


016704 


177472 


79 


000402 


016705 


177470 


90 


000406 


013701 


OOOOOOG 


81 


000412 






82 


000416 


010164 


OOOOOOG 


83 


000422 


062701 


000010 


84 


000426 


016405 


000002G 


85 


000432 


016404 


OOOOOOG 


86 


000436 


001365 




87 








88 








89 








90 


000440 


012637 


OOOOOOG 


91 


000444 


012605 




92 


000446 


012604 




93 


000450 


012603 




94 


000452 


012602 




95 


000454 


012601 




96 


000456 


000207 
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5*: 



SOB 
CALL 



RO, 6* 
ALLOC 



Loop if more to allocate 
Allocate space for last one 



Allocate data cache descriptors 



7«: 



8*: 



MOV 


@#VNUMDC, RO 


BEQ 


20* 


MOV 


R4, DCDBAS 


MOV 


R5, DCDBAS+2 


MOV 


#DC**SZ,R1 


DEC 


RO 


BLE 


8* 


CALL 


ALLOCL 


MOV 


R4, DC*NXT(R2) 


MOV 


R5, DC$NXT+2(R2) 


SOB 


RO, 7* 


CALL 


ALLOC 



; Get # DCD's wanted 

> Br if shared file data caching not wanted 

i Set pointer to 1st DCD 

Get size of data cache descriptor block 

Get 1 less DCD 

Br if only 1 wanted 

Allocate space for a DCD 

Make previous entry point to neui one 



;Allocate last one 
Set up pointers to data cache buffers 



9*: 



MOV 

MOV 

MOV 

MAP TO 

MOV 

ADD 

MOV 

MOV 

BIME 



Fini&hed 



20*: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



DCDBAS, R4 ; Get pointer to 1st DCD 

DCDBAS+2, R5 

@#LOKCSH, Rl jGet par value for start of area 

R5 ;Map to next DCD 

Rl, DC*PAR(R4) ;Set pointer to cache buffer 

#512. /64. ,R1 ; Point to next 512-byte buffer 

DC*NXT+2(R4), R5 ; Get pointer to next DCD 

DC*NXT(R4),R4 

9* i Br if more to allocate 



<SP)+, €#KPAR5 
(SP)+, R5 
<SP>+, R4 
<SP)+, R3 
<SP)+, R2 
<SP)+, Rl 



TSL DC K 
LOKINI 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



000460 



000460 010402 
000462 010503 



000464 004767 000006 



000470 



000474 000207 



Save the pointer to a current list element* allocate and new element* 
and set mapping to point to the previous element. 

Inputs: 
Rl -- Size of element to allocate 
R4, R5 = Pointer to current element 

Outputs: 
R4» R5 = Pointer to new element 
R2» R3 = Pointer to previous element 
Mapping is set up to access previous element 
All registers are preserved. 

ALLOC L: 

Save pointer to current element 



MOV 
MOV 



R4, R2 
R5, R3 



; Save pointer to current element 



Allocate a new element 

CALL ALLOC ; Allocate a new element 

Set mapping to previous element 

MAPTO R3 i Map to previous element 

Finished 

RETURN 
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1 



3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 


000476 


010246 




17 








18 








19 








20 


000500 


010102 




21 


000502 


006202 




22 


000504 






23 


000510 


005024 




24 


000512 


077202 




25 








26 








27 








28 


000514 


020427 


017644C 


29 


000520 


101410 




30 








31 








32 








33 


000522 


162704 


0000000 


34 


000526 


010402 




35 


000530 


072227 


177772 


36 


000534 


060205 




37 


000536 


042704 


177700 


38 


000542 


062704 


OOOOOOG 


39 








40 








41 








42 


000546 


012602 




43 


000550 


000207 





Allocate space for a list element. 

Adjust both the virtual and physical address pointers to keep the 

virtual address within the par 5 region. 

Inputs: 
Rl ~ Size of element to allocate <bytes) 
R4 = Virtual address where uie are to start allocation 
R5 = Physical address where we are to start allocation 

Outputs: 
R4 = New virtual address 
R5 = New physical address 
All registers are preserved. 

ALLOC: MOV R2, -(SP) 

Zero the space we are allocating 



1$: 



MOV 


R1,R2 


ASR 


R2 


MAP TO 


R5 


CLR 


<R4) + 


SOB 


R2, 1$ 



j Get # bytes to allocate 

J Get # words to allocate 

i Map to area we are allocating 

; Zero the area 



If we are getting too near the end of the par 5 regioni reset phys addr 

CMP R4* #VPAR5+S100. i Are we getting near end of par 5 region? 

BLOS 9* i Br if not 

We must advance physical address and reset virtual address 



SUB 
MOV 
ASH 
ADD 
BIC 
ADD 

Fini shed 



#VPAR5, R4 
R4, R2 
#-6, R2 
R2, R5 

#-^C<77>> R4 
#VPAR5, R4 



J Remove par 5 virtual address bias 

; Get virtual address within 8Kb region 

; Get # blocks allocated within region 

j Advance physical base address 

i Leave only by te~wi th in-block virtual addr 

fRebias virtual address 



9$: 



MOV (SP)+, R2 
RETURN 



TSLOCK Shared file access cont MACRO V05. 04 Friday 18~Dec-87 1 1 : b9 Page 7 
DOOPAP — EMT to open shared file with access protection 



€ 
€ 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



SBTTL DOOPAP 



EMT to open shared file with access protection 



The DOOPAP entry point is the newer form of the shared file open EMT 
which functions like the simple shared file open except it also 
supports an access protection code stored in the 2nd word of the 
EMT argument block. See comments at the front of this module for 
a description of the format of the access codes. 



000552 013701 000002C 
000556 000402 



Format of the EMT argument block: 



. BYTE Chan, 125 

. WORD acces5_code 

DOOPAP: MOV @#EMTBLK+2, Rl 

BR OPNCOM 



/ Oet access code 

j Enter common open code 



TSLOCK 
DOC OP N 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL DOCOPN 



EMT to open channel to shared file 



This (obsolete) form of the shared file open EMT does not provide for 
an access code so shared update access is assumed. 



000560 012701 000005 



DOCOPN: MOV 



#5, Rl 



; Get shared update access code 



Enter common open code. Rl = Open access code. 

See if this channel is already opened to a shared file. 



000564 004767 003564 
000570 103402 



OPNCOM: CALL 
BCS 



FNDCDB 
1* 



j Is channel opened to a shared file? 
; Br if not 



000572 004767 003110 



000576 013700 OOOOOOG 

000602 032760 OOOOOOG OOOOOOG 

000610 001004 



000612 012700 000001 
000616 000137 OOOOOOG 



This channel is already opened to a shared file. 
Close channel before reopening. 

CALL CLSCDB j Close shared file channel 

Make sure a .LOOKUP or .ENTER has been done to a file. 



1*: 



MOV 
BIT 
BNE 



Error 



@#CHNADR» RO ; Point to channel descriptor block 
#CS*OPN. C. CSW<RO)i Has this channel been opened? 
2* i Br if yes 

Channel is not open to a file. 



MOV 
JMP 



#EC 1 , RO 
g#SETERR 



i Return error code 1 



Channel is open to a file. 

Try to get a free Channel Descriptor Block (CDB), 



.^=: 016704 177236 

000626 001004 

000630 012700 000002 

000634 000137 OOOOOOG 

000640 016705 177222 

000644 005337 OOOOOOG 
000650 

000654 016467 OOOOOOG 177202 

000662 016467 000002G 177176 



?*: 



3*: 



MOV 

BNE 

MOV 

JMP 

MOV 

DEC 

MAP TO 

MOV 

MOV 



FCFREE, R4 

3* 

#EC2, RO 

@#SETERR 

FCFREE+2i R5 

e#NUMCDB 

R5 



i Point to free CDB 

; Br if there is a free CDB 

i Error 2 if no free CDB's 



i Get PAR pointer 
J One fewer free CDB's 
;Map to the CDB 
FC*CLK(R4), FCFREE i Set new free list pointer 
FC*CLK+2<R4), FCFREE+2 ; New free-list PAR pointer 



000670 004767 001076 



000674 004767 003546 
000700 103051 



We have a free CDB (virtual address in R4, PAR pointer in R5). 
Add this CDB to the list of CDB's for this job and init the CDB. 

CALL INICDB {Initialize the CDB 

Search for FDB for file being opened 



CALL 
BCC 



FNDFDB 
4* 



; Try to locate FDB for file 
i Br if found the FDB 



File is not currently opened (as a shared file). 
Try to find a free FDB. 



000702 016702 
000706 00 1 006 



177146 



MOV FFFREE, R2 
BNE 5* 



i Is there a free FDB' 
i Br if yes 



4 

i 



TSLOCK Shared file access cont HACRO V05. 04 
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i 

€ 



58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



000710 
000714 
000720 



000724 
000730 
000734 
000742 
000750 
000752 
000756 
000760 



000762 
000770 
000776 
001002 



001006 
001014 
001022 



001024 
001030 
001032 
001036 
001040 
001044 



001046 
001052 
001056 



001062 
001066 
001072 
001076 
001102 



004767 
012700 
000137 



016267 
016267 
010201 
012700 
005021 
077002 



016762 
016762 
010267 
010367 



016762 
016762 
000417 



004767 
103406 
005737 
001411 
004767 
000406 



004767 
012700 
000137 



016200 
016201 
010462 
010562 



002772 
000003 

ooooooe 



016703 177126 



OOOOOOG 
000002G 

OOOOOOC 



177112 
177106 



177072 
177066 
177056 
177054 



177074 
177070 



001102 

OOOOOOG 

004662 



002634 
000004 
OOOOOOG 



OOOOOOG 
000002G 
OOOOOOG 
000002G 



OOOOOOG 
000002G 



OOOOOOG 
000002G 



There are no free FDJi's 



CALL 


CLSCD13 


MOV 


#EC3, RO 


JMP 


©#SETERR 



Release the CDB ute got for the channel 
Return error 3 



There is a free FDD. 
Initially zero the FDB. 



5*: 



7$: 



MOV 

MAP TO 

MOV 

MOV 

MOV 

MOV 

CLR 

SOB 



FFFREE+2, R3 
R3 



;Get PAR pointer to FDB 
» Map to the new FDB 
FF*FLK<R2), FFFREE i Remove FDB from free list 
FF*FLK+2 ( R2 ) , FFFREE+2 

R2#R1 >Get virtual address of FDB 

#FF**SZ/2, RO iGet # words to zero 
(Rl)+ ; Zero the entire FDB 

RO, 7* 



Add the new FDB to the linked list of active FDB's 

MOV FFHEAD, FF$FLK<R2)i Add FDB to active list 

MOV FFHEAD+2, FF*FLK+2<R2) 

MOV R2, FFHEAD i Put new FDB at head of active list 

MOV R3, FFHEAD+2 

Initialize the FDB 

MOV CURFID, FF*FID<R2)i Set dev # in low byte, unit # in high byte 
MOV CURFID+2, FF*FID+2(R2)iSet starting block number for file 
BR 8* 

An FDB already exists for this file. 

See if access protection set by other users allows us to 

access the file. 

4*: CALL CHKACC iSee if we can access this file 

i Br if access is not allowed 
;Are we doing data caching? 
; Br if not 
iFlush all data cache entries for file 



Error: Access protection disallows our access to this file. 

10*: CALL CLSCDB ; Release the CDB we got 

{Return error code 4 



CALL 


CHKACC 


BCS 


10* 


TST 


e#NUMDCD 


BEQ 


8* 


CALL 


CLSDCD 


BR 


8* 



CALL 


CLSCDB 


MOV 


#EC4, RO 


JMP 


e#SETERR 



Access to the file is allowed. 

Make linkage connections between CDB and FDB. 

8*: MAPTO R3 ; Map to FDB 

MOV FF*CDB(R2), RO iGet pointer to current CDB at head of list 

MOV FF*CDB+2<R2),R1 

MOV R4, FF*CDB<R2> ; Set new CDB as head of list for file 

MOV R5, FF*CDB+2<R2> 



TSLOCK Shared file access cont MACRO V05. 04 
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115 001106 
ll<b 001112 

117 001116 

118 001122 

119 001126 
120 

121 



010064 
010164 
010264 
010364 



OOOOOOG 
000002G 
OOOOOOG 
000002G 
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123 



001132 000137 OOOOOOC 



MAPTO R5 

MOV R0< FC*FLK(R4) 

MOV R 1 , FC$FLK+2 < R4 ) 

MOV R2, FC*FDB<R4) 

MOV R3> FC*FDB+2 ( R4 ) 

Finished opening the file 

Jl'^P ©#EMTXIT 



> Map to our CDB 

iMake new CDB point to old CDB list head 

iMake CDB point to FDB 



TSLOCK 
SFSVST 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



23 
24 
25 
26 
27 
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. SBTTL SFSVST 



EMT to save channel status <. SAVESTATUS > 



This routine is called when a .SAVESTATUS EMT is executed. 

It checks to see if the channel is currently opened to a shared file 

and if so marks the CDB for the channel as suspended. 



001136 010446 
001140 010546 
001142 013746 OOOOOOG 



001146 004767 003202 
001152 103405 



SFSVST: 


MOV 


R4, -(SP) 




MOV 


R5, -<SP) 




MOV 


e#KPAR5, -<SP) 


; See 


if this 


channel is cur 




CALL 


FNDCDB 




BCS 


9* 



i See if channel is opened to 
i Br if not 



shared file 



Channel is opened to a shared file. 
Mark CDB as suspended. 



001154 

001160 152764 OOOOOOG OOOOOOG 



001166 012637 OOOOOOG 

001172 012605 

001174 012604 

001176 000207 



9$: 



MAP TO 


R5 


BISB 


#FL*SPN.. FC*FL 


F^ i n i E h e d 




MOV 


<SP}+, @#KPAR5 


MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


RETURN 





; Map to the CDB 



i 
I 
C 
( 
i 

< 
( 
I 
I 
i 

€ 
€ 

i 

i 

i 

i 

t 
i 
i 



TSLOCK 
SFRSST 



Shared file access cont MACRO V05. 04 
— EMT to reopen a channel (.REOPEN) 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

29 

29 

30 

31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



001200 
001202 
001204 
001206 
001210 



001214 
001220 



001226 
001232 
001236 
001240 
001244 
001250 
001256 
001260 
001264 
001266 
001274 
001276 
001302 
001306 



001310 
001314 
001320 
001324 
001330 
001336 
001340 
001344 
001346 
001352 
001356 



010246 
010346 
010446 
010546 
013746 



004767 
103466 



016204 
016205 
001457 
113700 

132764 
001407 
120064 
001004 
123764 
001435 
016405 
016404 
001356 



016204 
016205 

132764 
001403 
120064 
001406 
016405 
016404 
00 1 362 



001360 000406 



SBTTL SFRSST 



EMT to reopen a channel (.REOPEN) 



This routine is called when a .REOPEN EMT is executed. 
if the file being reopened is a shared file. 



It checks to see 



OOOOOOG 



003226 



SFRSST: 


MOV 


R2, -<SP) 




MOV 


R3, -<SP) 




MOV 


R4, -<SP) 




MOV 


R5, -(SP) 




MOV 


@#KPAR5, 



■ ( SP ) 



See if an FOB exists for the 



CALL 
BCS 



FNDFDB 
9* 



file being reopened 

; Search for an FDB for this file 
j Br if no FDB 



We found an FDB for the file. 

First check to see if there is a suspended CDB for this user that has 

the same channel number as channel being reopened. 



OOOOOOG 
000002G 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

000002G 
OOOOOOG 



1*: 



?*: 



MAP TO R3 

MOV FF*CDB(R2),R4 

MOV FF*CDB+2(R2)iR5 

BE(3 9* 

MOVE e#CORUSR, RO 

MAP TO R5 

BITB #FL*SPN, FC*FLG(R4) 

BEQ 2* i Br 

CMPB RO, FC*UN(R4) ;Is 

BNE 2* ; Br 

CMPB @#CHNNUM, FC*CHN ( R4 ) 

BEQ 6* ; Br 

MOV FC*FLK+2(R4), R5 

MOV FC*FLK(R4),R4 

BNE 1* 



Map to the FDB 

Get virtual address of 1st CDB for file 

Get par mapping for 1st CDB 

Br if no CDB's for file (should never happen) 

Get current job index number 

Map to the CDB 

Is this a suspended CDB? 

if not 

this CDB for this user? 

if not 

; Does the channel number match? 

if yes — We found the suspended CDB 



i Get par mapping for 
i Get virtual address 
j Loop if another CDB 



next CDB 
of next CDB 
to check 



We could not find a suspended CDB with a matching channel number. 
See if me can find any suspended CDB (in case user is reopening with 
a different channel than originally used). 



OOOOOOG 
000002G 

OOOOOOG OOOOOOG 

OOOOOOG 

000002G 
OOOOOOG 



4*: 



5*: 



MAPTO 

MOV 

MOV 

MAPTO 

BITB 

BEQ 

CMPB 

BEQ 

MOV 

MOV 

BNE 



R3 ; Map 

FF*CDB(R2),R4 j Get 

FF*CDB+2(R2),R5 J Get 

R5 ;Map 
#FL«SPN, FC*FLG(R4) ; 

5* i Br 

RO, FC*UN(R4) ils 

3* iBr 



to the FDB 

virtual address of 1st CDB for file 

par mapping for 1st CDB 

to the CDB 
Is this a suspended CDB? 
if not 

this CDB for this user? 
if yes — Use this CDB 



FC*FLK+2(R4)> R5 ; Get par mapping for next CDB 



FC*FLK(R4),R4 
4* 



i Get virtual address of next CDB 
i Loop if another CDB to check 



The file being reopened is not a shared file for this user 

BR 9* 
The file being reopened is a shared file for this user 



TSLOCK Shared file access cont MACRO V05. 04 
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5B 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 



001362 
001370 



001376 
001402 
001404 
001406 
001410 
001412 



113764 
142764 



012637 
01260!:> 
012604 
012603 
012602 
000207 



0000000 
0000000 



OOOOOOG 



0000000 
OOOOOOG 



3*: MOVE 
6$: BICB 

; Finished 

i 

9*: MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



@#CHNNUM, FC*CHN<R4); Set channel number in CDB 
#FL*SPN. FC*FLG<R4) ; Say CDB no longer suspended 



(SP)+, @#KPAR5 
<SP)4-, R5 
(SP)+, R4 
(SP)+, R3 
<SP)+, R2 



TSLOCK 
DOF?LK - 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

23 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 
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001414 



001414 004767 002734 
001420 103004 



001422 012700 000001 
001426 000137 OOOOOOG 



001432 013701 
001436 005201 



000002G 



001440 
001444 
001446 
001450 
001452 



004767 
1 03007 
005700 
001402 
000137 



000636 



OOOOOOG 



001456 004767 001260 
001462 000763 



001464 000137 OOOOOOG 



. SBTTL DORLK 



— EMT to lock a block with wait 



This routine is called when an EMT is executed which requests that 

a block be locked and the job suspended if the block is already locked. 



f 

€ 



DORLK: 

See if this channel is opened to a shared file 



CALL 
BCC 



FNDCDB 

1* 



; Try to find a CDB for this channel 
; Br if we found a CDB 



This channel is not open to a shared file. Return error code 1. 



MOV 
JMP 



#EC1,R0 
@#SETERR 



; Return error code 1 



This channel is opened to a shared file. 
Get number of the block we want to lock. 



1*: MOV e#EMTBLK+2, Rl 
INC Rl 



; Get # of block to lock 
; Bias the block number 



Try to lock the requested block 



CALL 


TRYLK 


BCC 


2* 


TST 


RO 


BEQ 


3* 


JMP 


@#SETERR 



/Try to lock the block 

; Br if we were able to lock the block 

i Is block locked by someone else? 

i Br if yes 

; Some other error 



The block is locked by someone else. 
Suspend our job until the block is unlocked. 



3*: 



CALL 
BR 



LKWAIT 
1* 



/Wait for block to be unlocked 
/Now go try again 



We successfully locked the block 
2*: JMP @#EMTXIT 



001470 



TSLOCK Shared file access cont MACRO V05. 04 
DOTLK — EMT to lock a block with status 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

la 

19 
20 
21 



Friday iS~Dec~87 11:59 Page 12 



SBTTL DOTLK — EMT to lock a block tuith status 



This routine is jumped to when an EMT is executed to try to lock a block 
with a status code being returned is the block is not available. 



DOTLK; 

See if this channel is opened to a shared file 



001 
001 
001 
001 



001 
001 
001 
001 



470 
474 
476 
502 



506 
512 
514 
520 



004767 
103004 
012700 
000137 



013701 
005201 
004767 
103402 



002660 

000001 
0000000 



000002G 
000562 



CALL 


FNDCDB 


BCC 


1* 


MOV 


#EC1, RO 


JMP 


@#SETERR 



j See if channel is opened to a shared file 
i Br if channel is opened to a shared file 
{Return error code 1 if not opened to shared 



Try to lock the requested block. 



1*: 



MOV 


@#EMTBLK+2, Rl 


INC 


Rl 


CALL 


TRYLK 


BCS 


2* 



iOet # of block to lock 

j Bias the block number 

j Try to lock the block 

; Br if unable to lock the block 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 



001 5J 



001 
001 
001 
001 
001 
001 
001 
001 
001 
001 



526 
530 
532 
536 
542 
546 
554 
562 
564 
570 



132762 
001402 
012700 
000137 



000137 OOOOOOG 

005700 
001017 
012700 000003 

016402 OOOOOOG 

OOOOOOG OOOOOOG 



We successfully locked the block 

JMP @#EMTXIT 
The block is not available 



2*: 



000004 
OOOOOOG 



3$: 



TST 

BNE 

MOV 

MAP TO 

MOV 

MAP TO 

BITB 

BEQ 

MOV 

JMP 



RO 

3* 

#EC3, RO 

R5 

FC*FDB(R4), R2 

FC*FDB+2(R4) 



iBlock locked by another job? 

i Br if some other error 

; Assume single block locked 

j Map to the CDB 

i Get pointer to FDB for file 

; Map to the FDB 
#FT*EFL. FF*FLG<R2) ;Is the entire file locked? 
3* J Br if not 

#EC4> RO ; Return error code 4 
@#SETERR 



TSLOCK 
DOCULK 
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< 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



001574 



001574 004767 002554 

001600 103004 

001602 012700 000001 

001606 000137 OOOOOOG 



00161; 



004767 001442 



. SBTTL DOCULK 



EMT to unlock all blocks for a channel 



This routine is called by the EMT which is used to unlock all locked 
blocks for a channel. 



DOCULK: 

; Make sure this channel is opened to a shared file 



CALL 


FNDCDB 


BCC 


1* 


MOV 


#EC1,R0 


JMP 


e#SETERR 



001616 000137 OOOOOOG 



j Locate CDB for shared file 

; Br if found the CDB 

i Return error 1 if not opened to shared file 



Unlock all of the blocks for this channel 

CALL CHNULK i Unlock all blocks for the channel 
Finished 

JMP ©#EMTXIT 



TSLOCK 
DOULKl - 

1 
2 
3 
4 
5 
6 

s 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



Shared file ace 
— EMT to unlock 
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. SBTTL DOULKl 



EHT to unlock a single block 



This routine is executed in response to the EMT uihich unlocks a 
single block. 



DOULKl: 

Make sure this channel is opened to a shared file 



001622 
001626 
001630 
001634 



001640 
001644 
001652 



001654 
001660 
001662 



001664 
001670 



001672 
001674 
001700 
001704 
001706 
001710 
001712 
001714 
001720 



004767 
103004 
012700 
000137 



002526 

000001 
OOOOOOG 



CALL 


FNDCDB 


BCC 


1* 


MOV 


#EC1.R0 


JMP 


@#SETERR 



132764 
001004 



013700 
005200 
001003 



004767 
000414 



010403 
062703 
013702 
020023 
001402 
077203 
000403 
004767 
005043 



OOOOOOG OOOOOOG 



j Locate CDB for this channel 

j Br if channel is opened to a shared file 

j Error code 1 if not opened to shared file 



If we currently have the entire file locked* unlock the file now. 

1$: MAPTO R5 ; Map to the CDB 

BITB #FL*EFL, FC*FLG(R4)i Do we have the entire file locked? 
BNE 4* i Br if yes 

Get the number of the block to unlock 



000002G 



3*: MOV @#EMTBLK+2, RO 
IMC RO 
BNE 2* 



; Get # of block to unlock 

>Bias the block number 

i Br if unlocking a single block 



Block number uas -1* unlock all of the locked blocks. 



001370 



4*: 



CALL 
BR 



CHNULK 
9* 



Unlock all locked blocks 



OOOOOOG 
OOOOOOG 



001434 



001722 000137 OOOOOOG 



Unlock a single block 
2$: 

5$: 

6$: 

Fini shed 
9*: JMP (g#EMTXIT 



MOV 


R4, R3 


ADD 


#FC*LBN, R3 


MOV 


@#VMLBLK> R2 


CMP 


RO, <R3) + 


BEQ 


6* 


SOB 


R2, 5* 


BR 


9* 


CALL 


UNLOCK 


CLR 


-(R3) 



Get virtual address of CDB 

Point to start of block # vector in CDB 

Get # locked block entries in CDB 

See if block is in lock list 

Br if it is 

Keep looking 

Specified block is not locked 

Unlock the block 

Remove block # from lock table 



TSLOCK 
DOSFCK 
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1 

2 

3 

4 

5 

6 

7 



9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



001726 



001726 004767 002422 
001732 103415 



001734 

001740 132764 0000000 0000000 

001746 001407 



001750 142764 OOOOOOG OOOOOOG 
001756 012700 000002 
001762 000137 OOOOOOG 



001766 000137 OOOOOOG 



. SBTTL DOSFCK — EMT to check for shared file modification 

This EMT is used to check to see if any other users have written 

to the shared file specified by our channel #. 

If no writes by other users have occurred since the last time 

this EMT was executed, no error is returned by the EMT. 

If writes have been performed to the file» an error status of 2 is 

returned. 

DOSFCK: 

Make sure this channel is opened to a shared file. 



CALL 
BCS 



FNDCDB 
9* 



; Find COB for this channel 

J Br if channel not opened to shared file 



See if file-modification flag set in our CDB 

MAPTO R5 J Map to our CDB 

BITB #FL*ACT, FC*FLG(R4) ; Has the file been modified fay others? 

BEQ 9* i Br if not 

Tht? file has been modified 

BICB #FL*ACT> FC*FLG<R4) ; Reset the modification flag 
MOV #EC2, RO ; Return error code 2 
vJMP ©#SETERR 



9*: 



The file has not been modified 
JMP @#EMTXIT 



TSLOCK Shared file access cont MACRO V05. 04 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 001772 

12 001774 

13 001776 
14 

15 
16 

17 002002 

18 002006 

19 002010 

20 002014 

21 002020 

22 002022 

23 002024 
002032 
002040 
002044 

27 002046 

28 002054 

29 002060 

30 002066 

31 002070 
32 

33 
34 

35 002074 

36 002102 

37 002110 

38 002114 
39 

40 
41 

42 002120 

43 002124 

44 002126 

45 002130 



. SBTTL INICDB 



Initialize a new CDB 



24 
25 
26 



010146 
010246 
013746 



010402 
013700 
062700 
005022 
077002 
1 1 3764 
1 1 3764 
032701 
001403 
152764 
042701 

060100 
111064 



013764 
013764 
010437 
010537 



Add a new CDB to the list of CDB's for the current job and initialize 
the CDB. 



Inputs: 
R4 = Virtual address of CDB. 
R5 = PAR pointer for CDB. 
Rl = Open access mode flags. 



OOOOOOG 



INICDB: MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -<SP) 
@#KPAR5, -<SP> 



OOOOOOG 
OOOOOOC 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
000400 

OOOOOOG OOOOOOG 
177770 



; Map to the CDB 

} Get pointer to CDB 

i Get # locked block entries 

;Add size of rest of entry 

i Initially zero the entire CDB 



OOOOOOG 



OOOOOOG OOOOOOG 
000002G 000002G 
OOOOOOG 
000002G 



Initialize the CDB 

MAPTO R5 

MOV R4, R2 

MOV e#VMLBLK, RO 

ADD #FC*LBN/2. RO 

1^: CLR (R2)+ 

SOB RO, 1« 

MOVE e#CORUSR> FC«UN<R4); Store job number into CDB 

MOVE @#CHNNUM, FC*CHN(R4)i Store channel number 

BIT #400, Rl ; Should u>e suppress data caching? 

BEQ 2* i Br if not 

BISB #FL*NDC, FC*FLG(R4)i Set flag in CDB to suppress data caching 

2$: BIC #'X<7>iRl jMask out all but protection code 

. ADDR #ACCMSK, RO ; Get address of access mask table 

ADD R1,R0 ; Point to correct entry in table 

MOVE <R0), FC*ACC<R4) i Set access protection flags 

Add CDB to linked list of CDB's for current job. 



MOV 
MOV 
MOV 
MOV 

Finished 



012637 OOOOOOG 

012602 

012601 

000207 



MOV 
MOV 
MOV 
RETURN 



@#JCDB, FC*CLK<R4)i Make new CDB point to rest of list 
@#JCDB+2, FC*CLK+2<R4) 

R4i e#JCDB iMake list head of job point to new CDB 
R5, @#JCDB+2 



<SP)+, @#KPAR5 
(SP)+, R2 
(SP)+, Rl 



TSLOCK 
CHKACC 
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3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



002132 010146 

002134 010446 

002136 010546 

002140 013746 OOOOOOG 



002144 

002152 042701 177770 

002156 060100 

002160 111000 



002162 

002166 016204 OOOOOOG 

002172 016205 0000020 

002176 001412 



002200 

002204 1 30064 OOOOOOG 

002210 001007 



002212 



016405 0000020 



002216 016404 OOOOOOG 
001366 



002226 000401 



002230 000261 



002232 012637 OOOOOOG 
002236 012605 



. SBTTL CHKACC - — ChecN for file open access conflicts 

CHKACC is called durinq a file open operation to determine if the 
access protection set up by other users allows us to access the file. 

Inputs: 
R2, R3 = Pointer to FDB for file being opened. 
Rl = File access code as provided in open argument block. 



Outputs: 
C~flag cleared 
C-flag set 



O- File access is ok. 
=> File access denied. 



CHKACC: MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R4, -<SP) 
R5, -<SP) 
@#KPAR5, -<SP) 



. ADDR 


#ACCBIT, RO 


BIC 


#-^C<7>, Rl 


ADD 


Rl, RO 


MOVE 


<RO)>RO 



j Preserve mapping 
Convert access code to a bit mask 

Point to bit mask vector 
Clear all but access flags 
Point to cell of interest 
Get bit mask 

Begin loop which will examine each CDB on list for file 

MAPTO R3 ; Map to the FDB 

MOV FF*CDB(R2), R4 i Get virtual address of 1st CDB for file 

MOV FF«CDB+2<R2). R5 ;Get PAR mapping for Ist CDB 

BEQ 3* ; Br if there are no CDB's 

See if there is an access conflict with this CDB 



1*: 



MAPTO R5 

BITB RO, FC*ACC<R4) 

BNE 2* 



;Map to the CDB 

iCheck for access conflict 

; Br if there is a conflict 



No conflict with this CDB. See if there are more to check. 

MOV FC*FLK+2<R4), R5 j Get Par mapping for next CDB 

MOV FC*FLK(R4), R4 i Get pointer to next CDB 

BNE 1* i Br if there are more CDB's to check 



There is no access conflict. 



3*: 



CLC 
BR 



9* 



There is an access conflict 



'$: 



9*: 



iEC 



Finished 




MOV 


<SP)+, @#KPAR5 


MOV 


<SP)+,R5 



Signal success on return 



Signal error on return 



i Restore par mapping 



i 
f 
I 

€ 
I 
I 
C 
I 
I 
€ 
€ 

i 
i 
c 

4 

i 
i 

i 
i 
I 
I 

i 
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CHKACC — Check for file open access conflicts 

58 002240 012604 MOV <SP)+, R4 

59 002242 012601 MOV (SP)+, Rl 

60 002244 000207 RETURN 






TSLOCK 
SFCLS 
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— Close a shared file channel 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 



002246 010446 
002250 010546 
002252 013746 0000000 



002256 004767 002072 
002262 103402 



002264 004767 001416 



002270 012637 OOOOOOG 

002274 012605 

002276 012604 

002300 000207 



f 
f 



. SBTTL SFCLS 



Close a shared file channel 



The SFCLS subroutine is called from the close channel routine to see 
if the channel is opened to a shared file. 



SFCLS: MOV R4, -<SP) 

MOV R5, -<SP) 

MOV €#KPAR5, -<SP) 

; See if this channel is open to a shared file 



CALL 
BCS 



FNDCDB 
9* 



; Try to find CDB for this channel 

> Br if channel not opened to shared file 



This channel is opened to a shared file. 
Close the CDB. 



; Close this CDB 



9$: 



CALL 


CLSCDB 


Finished 




MOV 


(SP)+, e#KPAR5 


MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


RETURN 





TSLOCK Shared file access cont 
TRYLK — Try to lock a block 



1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 

17 002302 
IS 002304 

19 002306 

20 002312 
21 
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. SBTTL TRYLK — Try to lock a block 



010246 
010346 
013746 
010146 



OOOOOOG 



23 

24 002314 

25 002320 

26 002326 
27 

28 
29 
30 

31 002330 

32 002332 

33 002334 

34 002340 
35 

36 
37 

38 002342 

39 002346 

40 002350 

41 002352 

42 002356 

43 002362 

44 002364 

45 002366 

46 
47 

48 

49 002370 

50 002374 
51 

52 
53 
54 

55 002400 

56 002404 

57 002410 



132764 
001116 



OOOOOOG OOOOOOG 



005716 
001003 
004767 
000413 



105764 
001410 
010402 
062702 
013703 
021622 
001477 
077303 



016402 
016403 



000720 



TRYLK is called to attempt to lock a block. 

A biased block number of O (original block number 177777) represents 

a request to lock the entire file. 

Inputs: 
Rl = Bias block number. 
R4, R5 = Pointer to CDB for channel locking block. 

Outputs: 
C-flag cleared ==> Block successfully locked. 
C-flag set ==> Block could not be locked. . . 

RO = ==> Block locked by another user. 

RO = 2 ==> User has attempted to lock too many blocks. 

TRYLK: MOV R2, -<SP> 

MOV R3, -(SP) 

MOV @#KPAR5, -<SP) 

MOV R1,-(SP) ; Save block # on top of stack 

If we already have the entire file locked^ then this block is locked too 

MAPTO R5 ;Map to the CDB 

BITB #FL*EFL, FC*FLG<R4)i Do we have entire file locked? 

BNE 19* ; Br if yes — Block is already locked 

If this is a request to lock the entire file* unlock any blocks 
tue currently have locked. 

/Request to lock entire file? 

> Br if not 

;Unlock any blocks uie have locked already 



TST 


(SP) 


BNE 


1* 


CALL 


CHNULK 


BR 


8* 



See if Uie already have the block locked 



OOOOOOG 



OOOOOOG 
OOOOOOG 



1*: 



9$: 



TSTB 


FC*NLB(R4) 


BE(3 


8* 


MOV 


R4, R2 


ADD 


#FC*LBN, R2 


MOV 


@#VMLBLK, R3 


CMP 


(SP), (R2) + 


BEQ 


19* 


SOB 


R3, 9* 



OOOOOOG 
000002G 



8*: 



Get pointer to FDB for Pile 

MOV FC*FDB(R4),R2 
MOV FC*FDB+2 ( R4 ) , R3 



Does this CDB have any blocks locked? 

Br if not 

Get pointer to CDB 

Point to locked-block list in CDB 

Get # locked-block entries in list 

See if block is already locked by CDB 

Br if block is already locked 



; Get pointer to FDB 



If there are no blocks locked for this file, uie can immediately 
satisy the request. 



005762 

001412 



OOOOOOG 



MAPTO 

TST 

BEQ 



R3 

FF*NLB(R2) 

4* 



iMap to the FDB 

i Are there any blocks locked now? 

i if none locked then we can satisfy request 



i 

€ 
I 
< 
I 

€ 

I 

I 

I 

i 

i 

€ 



TSLOCK 
TRYLK - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

ill 

112 

113 

114 



Shared file access cont MACRO V05. 
-- Try to lock a block 



04 



002414 



002416 
002424 



002426 
002430 
002434 



002436 
002440 



002442 
002446 
002454 
002460 
002464 
002472 
002476 



002500 
002504 
002512 
002514 
002516 
002522 
002524 
002526 
002530 
002534 
002540 
002544 



002546 
002552 
002554 



002556 
002560 



005716 
001460 



132762 
001054 



011601 
004767 
103450 



005716 
001017 



152762 
005262 

152764 
105264 
000432 



126437 
103015 
010401 
062701 
005721 
001376 
011641 
105264 

005262 
000407 



012700 
000261 
000404 



005000 
000261 



iday 


18-Dec-87 


TST 


(SP) 


BEO 


IS* 



1 J : 59 Page 19-1 



0000000 OOOOOOG 



000146 



;Is this a request to lock entire file? 
i Br if yes — Can't satisfy now 

This is a request to locN a single block and some blocks are locked 
in the file. If the entire file is locked* \ne cannot satisfy request. 

BITB #FT*EFL, FF*FLG(R2); Is the entire file locked now? ' 
BNE 18* iBr if entire file locked 

Run down chain of CDB's for this file and see if some other 
user has this block locked. 

-.Get # of block to lock for CHKLOK 

J See if any other user has this block locked 

; Br if block locked by another user 



110V 


<SP),R1 


CALL 


CHKLOK 


BCS 


18* 



The block is free so claim it for our channel. 
(SP)=block #i R2, R3=FDB pointer; R4, R5=CDB pointer. 



4*: 



TST 
BNE 



<SP) 
5* 



;Lock entire file? 
; Br if not 



Lock entire file 



0000000 OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



000002 



MAPTO R3 ;Map to the FDB 

BISB #FT*EFL> FF*FLG<R2); Say entire file is locked 

INC FF*NLB<R2) ; Count # locked blocks 

MAPTO R5 ;Map to the CDB 

BISB #FL*EFL. FC*FLG(R4)i Say this channel has entire file locked 

INCB FC*NLB<R4) ; Say channel has a block locked 

BR 19* i Finished 

Lock a single block 

5*: MAPTO R5 i Map to the CDB 

FC*NLB<R4), e#VMLBLK >Max # blocks already locked? 

Br if yes — Error cannot lock another 

Get addr of CDB 

Point to list of block numbers 

7*: TST <R1)+ i Search for free entry in list 

(free entry will be zero) 
Store new block number into list 
Say another block locked by channel 
Map to the FDB 

Say another block locked in file 
Finished 

User is requesting to simultaneously lock more blocks than allowed 
6*: MOV #EC2. RO 

20* 

The requested block is locked by another job 
18*: CLR RO 



MAPTO 


R5 


CMPB 


FC*NLB<R4) 


BHIS 


6* 


MOV 


R4, Rl 


ADD 


#FC*LBN>R1 


TST 


<R1) + 


BNE 


7* 


MOV 


<SP), ~<R1) 


INCB 


FC*NLB(R4) 


MAPTO 


R3 


INC 


FF*NLB(R2) 


BR 


19* 



MOV 
SEC 
BR 



i Return error 2 

; Signal error on return 



CLR 
SEC 



i Return error 

; Signal error on return 



TSLOCK 
TRYLK • 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 

1 c:. w 

126 
127 
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002566 
002570 
002574 
002576 
002600 



i 



002562 000401 



002564 000241 



BR 20* 
We successfully locked the block 



19*: CLC 

i 

i Finished 



Signal success on return 



012601 
012637 
012603 
012602 
000207 



20*: 



OOOOOOG 



MOV 
MOV 
MOV 
MOV 
RETURN 



<SP)+,R1 
<SP)+, Q#KPAR5 
<SP)+, R3 
<SP>+, R2 
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another job 



I 



3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


002602 


010146 




15 


002604 


010246 




16 


002606 


010346 




17 


002610 


010446 




10 


002612 


010546 




19 


002614 


013746 


ooooooe 


20 








21 








22 








23 


002620 






24 


002624 


016204 


OOOOOOG 


25 


002630 


001431 




26 


002632 


016205 


0000020 


27 


002636 


113700 


OOOOOOG 


28 








29 








30 








31 


002642 






32 


002646 


105764 


OOOOOOG 


33 


002652 


001413 




34 


002654 


120064 


OOOOOOG 


35 


002660 


001410 




36 


002662 


010402 




37 


002664 


062702 


OOOOOOG 


38 


002670 


013703 


OOOOOOG 


39 


002674 


020122 




40 


002676 


001410 




41 


002700 


077303 




42 








43 








44 








45 


002702 


016405 


000002G 


46 


002706 


016404 


OOOOOOG 


47 


002712 


001353 




48 








49 








50 








51 


002714 


000241 




52 


002716 


000401 




53 








54 








55 








56 


002720 


000261 




57 









. SBTTL CHKLOK 



See if a block is locked by another job 



This routine is called to determine if a specific block is locked 
by another job. 

Inputs: 
Rl = Biased block number. 
R2, R3 = Pointer to FDB for file to be checked. 

Outputs; 
C-flag set ==> Block is locked by another job. 
C-flag cleared ==> Block is not locked. 

CHKLOK: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

Get pointer to start of CDB chain for this file 

MAPTO R3 ; Map to FDB 

MOV FF*CDB(R2),R4 ; Get virtual address of 1st CDB for file 

BEQ 8* ; Br if no CDB's for file 

MOV FF*CDB+2<R2), R5 ; Get par mapping for 1st CDB 

MOVE @#CORUSR> RO i Get our job index number 

See if next CDB has specified block locked 



Rl, -<SP) 




R2i -<SP) 




R3, -<SP) 




R4, -<SP) 




R5, -<SP) 




@#KPAR5, - 


-(SP) 



1*: 



3*: 



MAPTO 


R5 ; 


TSTB 


FC*NLB<R4> i 


BEQ 


2* : 


CMPB 


RO, FC*UN(R4) ; 


BEQ 


2* i 


MOV 


R4, R2 ■> 


ADD 


#FC«LBN, R2 > 


MOV 


@#VMLBLK, R3 ; 


CMP 


Rl, (R2)+ ; 


BEQ 


7« ; 


SOB 


R3, 3* i 



Map the CDB 

Does this CDB have any blocks locked? 

Br if not 

Does this CDB belong to our job? 

Br if yes — We only care about other jobs 

Get address of base of CDB 

Point to vector of locked block #'s 

Get # locked block entries 

See if requested block is locked 

Br if yes 

Check all entries in CDB 



Block not locked by this CDB, check next CDB 

?«: MOV FC*FLK+2(R4), R5 ; Get par for next CDB 

MOV FC*FLK<R4),R4 ; Get virtual address of next CDB 
BNE 1* ;LoDp if more CDB's to check 

This block is not locked by any channel 

8*: CLC ; Signal success on return 



CLC 
BR 



9* 



This block is locked by another job 
7$: SEC i Signal failure on return 
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58 






59 






60 


002722 


012637 OOOOOOG 


61 


002726 


012605 


62 


002730 


012604 


63 


002732 


012603 


64 


002734 


012602 


65 


002736 


012601 


66 


002740 


000207 



9$: 



t~ i n i r, h e d 




MOV 


<SP)+, @#KPAR5 


MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


MOV 


< SP ) +, R2 


MOV 


<SP)+,R1 


RETURN 





TSLOCK Shared 
LKWAIT — Wait 

1 
2 
3 
4 
5 
6 
7 
S 
9 

10 002742 

11 002744 

12 002746 

13 002750 

14 002752 

15 002754 
16 

17 
IS 

19 002760 

20 002764 

21 002770 
22 

23 

24 

25 002774 

26 

27 

28 

29 003000 

30 003004 

31 003010 

32 003014 

33 003022 
34 

35 
36 

37 003030 

38 003036 

39 003042 

40 003046 
41 

42 
43 

44 003052 

45 003054 

46 003056 

47 003062 

48 003066 

49 003072 

50 003074 

51 003100 

52 003104 

53 003106 

54 003112 
55 

56 
57 
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for a .locked block 

. SBTTL LKWAIT — Wait for a locked block 



010146 
010246 
010346 
010446 
010546 
013746 OOOOOOG 



016402 OOOOOOG 

016403 0000020 



004737 OOOOOOG 



016704 175064 

016705 175062 

016467 OOOOOOG 175046 

016467 000002G 175042 



113764 OOOOOOG OOOOOOG 

010164 OOOOOOG 

005064 OOOOOOG 

005064 000002G 



010200 
010301 
062700 OOOOOOC 

005760 OOOOOOG 

001405 

016001 000002G 

016000 OOOOOOG 

000766 

010460 OOOOOOG 

010560 000002G 



LKWAIT is called to suspend the execution of the current job until 
a requested block is unlocked. 



Inputs: 
Rl = Number of block to lock (biased by adding 1). 
R4,R5 = Pointer to CDB. 



LKWAIT: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R3, -(SP) 
R4, -<SP) 
R5, -(SP) 
e#KPAR5, -(SP) 



Get the address of the FDD for this file. 



MAP TO 

MOV 

MOV 



R5 ; Map to the CDB 

FC«FDB(R4),R2 ; Get virtual address of FDB 
FC*FDB+2(R4)» R3 > Get par mapping for FDB 



Before me suspend the job> check to see if it has been aborted. 

CALL ©#CHKABT ; See if job has been aborted 

Get a free wait queue element. 

MOV FWFREE, R4 ; Get virtual addr of free wait queue element 

MOV FWFREE+2, R5 ; Get par mapping 

MAPTO R5 ;Map to the wait element 

MOV FW*WLK(R4),FWFREE ; Remove block from free list 

MOV FW*WLK+2 ( R4 ) , FWFREE+2 

Set up information in the wait queue element 

MOVB @#CORUSR, FW*UN(R4) ; Set job number 

MOV Rl, FW*DBN(R4) ; Set # of block we are waiting for 

CLR FW*WLK(R4) i Say we are end of linked list 

CLR FW«WLK+2(R4) 

Add entry to tail of wait list for file 

MOV R2, RO ; Get pointer to FDB 

MOV R3, Rl 

ADD #FF«FWD-FW*WLK, RO iFake pointer so FDB looks like wait block 

1*: MAPTO Rl i Map to the next wait block (or FDB if 1st tm) 

TST FW*WLK(RO) ils this the last wait block on the list? 

BECJ 3* ;Br if yes 

MOV FW*WLK+2(R0), Rl i Get pointer to next wait block on list 

MOV FW*WLK(RO),RO 

BR 1* J Continue looking for end of list 

3*: MOV R4,FW*WLK(R0) i Add our wait block to end of list 

MOV R5, FW$WLK+2(R0) 

Suspend job and wait for desired block to be unlocked 



TSLOCK 
LKWAIT 



Shared 
— Wait 



file access cont MACRO V05. 04 
■for a locked block 
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58 003116 

59 003122 
60 

61 
62 
63 
64 

65 003126 

66 003132 

67 003136 

68 003142 

69 003146 

70 003152 

71 003156 

72 003160 

73 003164 

74 003166 

75 003172 

76 003176 

77 003200 

78 003204 
79 

SO 
81 

82 003210 

83 003214 

84 003222 

85 003230 

86 003234 
87 

88 
89 

90 003240 

91 003244 

92 003246 

93 003250 

94 003252 

95 003254 

96 003256 



012700 
004737 



016400 
016401 
062702 

026204 
001003 
026205 
001405 
016203 
016202 
000763 
010062 
010162 



016764 
016764 
010467 
010567 



012637 
012605 
012604 
012603 
012602 
012601 
000207 



OOOOOOG 
OOOOOOG 



OOOOOOG 
0000020 
OOOOOOC 

OOOOOOG 

000002G 

000002G 
OOOOOOG 

OOOOOOG 
000002G 



174650 
174644 
174634 
174632 



OOOOOOG 



MOV #S*SFWT, RO 
CALL @#QNSPND 



; Get shared-file wait state code 

; Change job state and suspend execution 



4*: 



6*: 



7*: 



We have been restarted. 

Either the desired block was unlocked or job was aborted. 

Release the wait block we used. 

MAPTO R5 iMap to the wait block 

MOV FW*WLK(R4>. RO ; Get pointer to following wait block 

MOV FW*WLK+2 < R4 ) , R 1 

ADD #FF*FWD-FW*WLK, R2 iFake pointer so FDB looks like wait block 

MAPTO R3 iMap to next wait block (or FDB if 1st time) 

CMP FW*WLK<R2), R4 ; Are we next entry in list? 

BNE 6* ;Br if not 

CMP FW*WLK+2<R2),R5 

BE<3 7* i Br if yes 

MOV FW*WLK+2(R2)* R3 i Get pointer to next wait block for file 

MOV FW*WLK(R2>,R2 

BR 4* /Continue searching 

MOV RO, FW«WLK<R2) > Relink wait-block list around us 

MOV R 1 , FW*WLK+2 ( R2 ) 

Return the wait block to the free list 



5*: 



OOOOOOG 
000002G 



MAPTO 

MOV 

MOV 

MOV 

MOV 



Finished 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



R5 j Map to wait block being freed 

FWFREE, FW*WLK<R4) i Put on free list 
FWFREE+2, FW*WLK+2<R4) 
R4, FWFREE 
R5, FWFREE+2 



<SP)+, @#KPAR5 
(SP)+, R5 
<SP)+, R4 
(SP)+, R3 
<SP)+, R2 
( SP > +, R 1 



TSLOCK Shared file access corit MACRO V05. 04 
CHNULK — Unlock all blocks for a channel 



Friday i8-Dec-S7 1 1 : S9 F^age 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



003260 
003262 
003264 



003270 
003274 
003302 
003304 
003306 
003312 



003314 
003316 
003322 
003326 
003330 
003332 
003336 
003340 



003342 
003346 
003350 
003352 



010246 
010346 
013746 



132764 
001404 
005000 
004767 
000413 



010402 
062702 
013703 
011200 
00 1 402 
004767 
005022 
077306 



012637 
012603 
012602 
000207 



. SBTTL CHNULK — Unlock all blocks for a channel 

CHNULK is called to unlock all the blocks which are locked by a 
channel. 

Inputs: 
R4,R5 == Pointer to CDB for channel. 



0000000 



CHNULK: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
@#KPAR5, -<SP) 



OOOOOOG OOOOOOG 



000042 



0000000 
OOOOOOG 



000016 



1*: 



2*: 



3*: 



See if we have the entire file locked 

MAPTO R5 ; Map to the CDB 

BITB #FL*EFL, FC*FLG(R4); Do lue have the entire file locked? 

BEQ 1$ ;Br if not 

CLR RO ; Say we want to unlock the entire file 

CALL UNLOCK ; Unlock the file 

BR 9* 

We do not have the entire file locked. 

Unlock the specific blocks that we have locked. 

Get pointer to CDB 

Point to list of block numbers 

Get # blocks in list 

Get next block number 

Br if this entry not used 

Unlock that block 

Say this block no longer locked by us 

Loop if more to check 



OOOOOOG 



9*: 



MOV 


R4, R2 


ADD 


#FC*LBN, R2 


MOV 


@#VMLBLK, R3 


MOV 


(R2),R0 


BEQ 


3* 


CALL 


UNLOCK 


CLR 


(R2) + 


SOB 


R3, 2* 


Finished 




MOV 


<SP)+, e#KPAR5 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





TSLOCK 
UNLOCK 



Shared 
— Unloc 



file ace 
k a s p {,? <:: 
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ific block 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL UNLOCK 



Unlock a specific block 



Unlock a specific block for a channel. 

If there are any users waiting for this block, they are restarted. 

Inputs: 
RO = Biased block number to be unlocked <0==>Unlock entire file). 
R4,R5 = Pointer to CDB. 



003354 
003356 
003360 
003362 
003364 
003366 
003372 



003374 
003400 
003404 
003412 
003416 
003422 
003426 
003432 



003440 
003444 
003450 



010146 
010246 
010346 
010446 
010546 
013746 
010001 



OOOOOOG 



UNLOCK: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, ~<SP) 
R3; ~<SP) 
R4, -OP) 
R5, -<SP) 
©#KPAR5, -<SP) 
RO, Rl 



105364 
142764 
016402 
016403 

005362 
142762 



016204 
016205 
001451 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 
000002G 

OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
000002G 



003452 
003454 
003456 
003462 
003466 
003470 
003474 
003500 
003504 
003506 
003512 
003516 
003520 



003526 
003532 
003536 



005701 



005764 
001440 
004767 
016405 
016404 
001433 

005764 
001364 
000765 



016200 

005764 
001003 



OOOOOOG 

000120 

000002G 

OOOOOOG 



OOOOOOG 



; Carry block number in Rl 

Decrement block lock count in CDB and FDB 

MAPTO R5 ;Map to the CDB 

DECS FC*NLB<R4) -Say channel has one fewer blocks locked 

BICB #FL*EFL, FC*FLG<R4); Say channel does not have whole file locked 

MOV FC*FDB<R4),R2 i Get pointer to FDB 

MOV FC«FDB+2 ( R4 > , R3 

MAPTO R3 ;Map to the FDB 

DEC FF*NLB<R2) » Say one fewer locked blocks in file 

BICB #FT*EFL, FF*FLG<R2)i Say entire file is not locked 

Get pointer to first wait block for this file 

MOV FF*FWD<R2), R4 i Get pointer to Ist wait block for file 

MOV FF*F WD+2 ( R 2 ) , R 5 

BEQ 9* i Br if no waiting users 

There are some jobs waiting for blocks in this file. 
See if we are unlocking the entire file. 

Are we unlocking entire file? 
Br if not 

Map to the first wait block 
1st user waiting for entire file? 
Br if yes — Restart him only 
3*: CALL RESTRT ; Restart this user 

4«: MOV FW*WLK+2<R4), R5 ; Get pointer to next wait block 

Br if hit end of list 

Map to next wait block 

Does this job want to lock whole file? 

Br if not 

He can't have all since we started others 



TST 


Rl 


BNE 


1* 


MAPTO 


R5 


TST 


FW*DBN<R4) 


BEQ 


8* 


CALL 


RESTRT 


MOV 


FW*WLK+2<R4),R5 


MOV 


FW*WLK(R4),R4 


BEQ 


9* 


MAPTO 


R5 


TST 


FW*DBN<R4) 


BNE 


3* 


BR 


4* 



We are unlocking a specific block 



OOOOOOG 
OOOOOOG 



1$: 

5*: 



MOV 


FF*NLB<R2),R0 


MAPTO 


R5 


TST 


FW«DBN<R4) 


BNE 


7* 



j Get # blocks remaining locked in file 

iMap to wait block 

; Waiting for entire fileT' 

; Br if not 



TSLOCK Shared file access cont MACRO 
UNLOCK — Unlock a specific block 



58 003540 

59 003542 

60 003544 

61 003546 

62 003552 

63 003554 

64 003560 

65 003564 

66 003566 
67 

68 

69 

70 003570 

71 

72 

73 

74 003574 

75 003600 

76 003602 

77 003604 

78 003606 

79 003610 

80 003612 



005700 
001412 
000403 
020164 
001406 
016405 
016404 
001360 
000402 



012637 
012605 
012604 
012603 
012602 
012601 
000207 



OOOOOOG 

0000020 
OOOOOOG 



V05. 04 


Friday 


lS-Dec-S7 11: 59 Page 




TST 


RO ; Is 




BEQ 


8* ;Br 




BR 


6* 


7*: 


CMP 


Rl, FW*DBN<R4) ; Is 




BEQ 


8* ■> Br 


6*: 


MOV 


FW$WLK+2(R4),R5 ; Ge 




MOV 


FW*WLK(R4),R4 > Ge 




BNE 


5* iBr 




BR 


9* ;No 



004767 000020 



Restart a job 
8*: CALL RESTRT 
Finished 



23-1 



entire file free?' 
if yes 



he waiting for block we are freeing? 

if yes 
par mapping for next wait block 
i Get pointer to next wait block 

if more wait blocks to check 
; No waiting jobs to restart 



jRestart this waiting job 



OOOOOOG 



9«: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



(SP)+, @#KPAR5 
(SP)+, R5 
(SP)+, R4 
(SP)+, R3 
( SP ) +, R2 
<SP)+, Rl 



TSLOCK Shared file access cont 
RESTRT — Restart a job that is 



3 








4 








5 








6 








7 








S 


003614 


010146 




9 


003616 


010246 




10 


003620 


013746 


ooooooe 


11 








12 








13 








14 


003624 






15 


003630 


116401 


OOOOOOG 


16 








17 








IS 








19 


003634 


004737 


0000000 


20 








21 








22 








23 








24 








25 








26 








27 


003640 


1 1 3702 


OOOOOOG 


28 


003644 


016200 


OOOOOOG 


29 


003650 


020061 


OOOOOOG 


30 


003654 


001007 




31 


003656 


126261 


OOOOOOG OOOOOOG 


32 


003664 


001003 




33 


003666 


010201 




34 


003670 


004737 


OOOOOOG 


35 








36 








37 








38 


003674 


012637 


OOOOOOG 


39 


003700 


012602 




40 


003702 


012601 




41 


003704 


000207 
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waiting for a lock 

. SBTTL RESTRT — Restart a job that is waiting for a lock 

Restart a job that is waiting for a locked block. 

Inputs: 
R4.. R5 = Pointer to wait block for job being restarted. 



RESTRT 



MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -<SP) 
e#KPAR5, -iSP) 

Get number of job to re&tart 



MAP TO R5 

MOVE FW*UN < R4 ) , R 1 



; Map to the wait block 
i Get # of job to restart 



Place job in high-priority execution state 

CALL @#QHIPRI ; Place job in high-prio state 

.If the job we are restarting has the same execution state as the 

currently executing job. requeue the currently executing job 

to the tail of the execution queue in order to give the restarted 

job an opportunity to get the block we released before our 

job relocks it. 

j Get # of currently running job 
j Get our execution state 
i Same as job we restarted? 
j Br if not 

l)iSame execution priority too? 
; Br if not 

> Get our job index number 
; Requeue our job at tail of execution list 



9$: 



MOVE 


@#CORUSR, R2 


MOV 


LSTATE(R2).R0 


CMP 


RO, LSTATE(Rl) 


BNE 


9* 


CMPB 


LPRI<R2),LPRI 


BNE 


9* 


MOV 


R2, Rl 


CALL 


@#ENQTL 


Finished 




MOV 


(SP)+, e#KPAR5 


MOV 


(SP)+. R2 


MOV 


(SP)+, Rl 


RETURN 





TSLOCK 
CLSCDB 



Shared file access cont 
— Close a CDB 
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1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



003706 010146 

003710 010246 

003712 010346 

003714 013746 OOOOOOG 



003720 004767 177334 



003724 
003730 
003734 
003740 
003744 
003750 
003752 
003756 
003760 
003764 
003770 
003774 
003776 
004002 



004006 
004012 
004020 
004026 
004032 
004036 



004042 
004046 
004052 
004056 
004062 
004064 
004066 
004070 
004074 
004100 
004104 



016400 
016401 
012702 
026204 
001003 
026205 
001407 
016203 
016202 

000763 
010062 
010162 



OOOOOOG 
000002G 
OOOOOOC 
OOOOOOG 

000002G 

000002G 
OOOOOOG 



OOOOOOG 
000002G 



SDTTL CLSCDB 



Close a CDB 



CLSCDB is called to close a CDB. 

All locked blocks are freed» the CDB is freed, and the FDB is also 

freed if this is the last CDB associated with it. 



Inputs: 
R4,R5 = Pointer to CDB being closed. 



CLSCDB: MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R3, -<SP) 
e#KPAR5, -<SP) 



1$: 



016764 
016764 
010467 
010567 
005237 



016400 
016401 
016402 
016403 
001443 
010246 
010346 
062702 

026204 
001003 



174046 
174042 
174032 
174030 
OOOOOOG 



OOOOOOG 
000002G 
OOOOOOG 
000002G 



OOOOOOC 
OOOOOOG 



OOOOOOG 
000002G 



Unlock all blocks for this channel 

CALL CHNULK i Unlock all blocks assoc with the CDB 

Remove CDB from CDB list for this job 

MAPTO R5 j Map to CDB being released 

MOV FC*CLK(R4), RO i Get pointer to following CDB 

MOV FC*CLK+2 < R4 ) , R 1 

MOV #JCDB-FC*CLK, R2 i Get fake pointer to JCDB, make like CDB 

CMP FC*CLK<R2)> R4 ; Are we the next CDB on the list? 

BNE 3* iBr if not 

CMP FC$CLK+2<R2),R5 

BEQ 4* ; Br if yes 

3*: MOV FC*CLK+2<R2), R3 i Get pointer to next CDB for job 

MOV FC*CLK<R2),R2 

MAPTO R3 i Map to the next CDB 

BR 1* i Continue searching 

4$: MOV RO, FC*CLK(R2) ; Relink chain around us 

MOV R 1 , FC*CLK+2 < R2 ) 

Return CDB to free list 

MAPTO R5 i Map to CDB being freed 

MOV FCFREE, FC*CLK<R4); Add CDB to free list 

MOV FCFREE+2, FC*CLK+2 ( R4 ) 

MOV R4> FCFREE ; Put element at head of free list 

MOV R5, FCFREF+2 

INC e#NUMCDB ; One more free CDB 

Remove CDB from list of CDB's for file 

MOV FC*FLK(R4)i RO i Get pointer to following CDB for file 

MOV FC«FLK+2<R4),R1 

MOV FC«FDB<R4), R2 ; Get pointer to FDB 

MOV FC*FDB+2 < R4 ) , R3 

BEG 20* ; Br if no FDB set up 

MOV R2, -(SP) i Save the FDB pointer 

MOV R3, -<SP) 

ADD #FF*CDB-FC*FLK, R2 iFake pointer so FDB looks like a CDB 

5*: MAPTO R3 i Map to the next CDB < or FDB if 1st time) 

CMP FC*FLK(R2), R4 ; Are we next CDB on list? 

BiME 6* ; Br if not 



TSLOCK Shared file access cont 
CLSCDB — Close a CDB 



58 004106 

59 004112 

60 004114 

61 004120 

62 004124 

63 004126 

64 004132 
65 

66 
67 

68 004136 

69 004140 

70 004142 

71 004146 

72 004150 
73 

74 
75 

76 004154 

77 004160 

78 004164 
79 

80 

81 

82 

S3 004166 

84 

85 

86 

87 004172 

88 004176 

89 004200 

90 004202 

91 004204 



026205 
001405 
016203 
016202 
000763 
010062 
010162 



012603 
012602 
005737 
001402 
004767 



0000020 

000002G 
OOOOOOG 

OOOOOOG 
0000020 



0000000 
001552 
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CHP FC*FLK+2 < R2 ) , R 5 

BEQ 7% ; Br if yes 

6*: MOV FC*FLK+2<R2), R3 ; Get pointer to next CDB 

MOV FC*FLK(R2),R2 

BR 5* ; Continue searching 

7*: MOV RO, FC«FLK<R2) i Relink chain around us 

MOV R 1 , FC«FLK+2 ( R2 ) 

i Release ail data cache descriptors associated with this file 

r 

MOV (SP)+, R3 J Get back pointer to the FDB 

MOV ( SP ) +, R2 

TST ©#NUMDCD ; Are we doing data caching? 

BEQ 8* ;Br if not 

CALL CLSDCD ; Release data cache entries for file 

; See if there are any CDB's left associated with this file. 



005762 
001002 



OOOOOOG 



004767 000014 



012637 
012603 
012602 
012601 
000207 



OOOOOOG 



El*: 



MAP TO 

TST 

BNE 



R3 

FF*CDB<R2) 

20* 



;Map to the FDB 

; Are there any CDB's left assoc uiith file? 

; Br if yes 



We just released the last CDB associated uiith this file. 
Free the FDB. 



; Free the FDB 



20*: 



CALL 


FREFDB 


Fini shed 




MOV 


(SP)+, @#KPAR5 


MOV 


<SP)+,R3 


MOV 


( SP ) +, R2 


MOV 


<SP)+, Rl 


RETURN 





i 
i 
i 



TSLOCK Shared 
FREFDB — Free 

i 
2 
3 
4 
5 
6 
7 

8 004206 

9 004210 

10 004212 

11 004214 
12 

13 
14 

15 004220 

16 004224 

17 004230 

18 004234 

19 004242 

20 004246 

21 004252 

22 004254 

23 004260 

24 004262 

25 004266 

26 004272 

27 004276 

28 004300 

29 004304 
30 

31 
32 

33 004310 

34 004314 

35 004322 

36 004330 

37 004334 
38 

39 
40 

41 004340 

42 004344 

43 004346 

44 004350 

45 004352 



file access 
a FDB 



010146 
010246 
010346 
013746 



016200 
016201 

162704 
026402 
001003 
026403 
001407 
016405 
016404 

000763 
010064 
010164 



016762 
016762 
010267 
010367 



012637 
012603 
012602 
012601 
000207 
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. SBTTL FREFDB — Free a FDB 

Release a File Descriptor Block <FDB). 

Inputs: 
R2, R3 ~ Pointer to FDB beinq freed. 



0000000 



OOOOOOG 
000002G 

OOOOOOG 
OOOOOOG 

000002G 

000002G 
OOOOOOG 



OOOOOOG 
000002G 



FREFDB: MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 
R3, -<SP) 
@#KPAR5> -<SP) 



Release the FDB 



; Map to the FDB 

j Get pointer to FDB that follouis one freed 

j Construct fake pointer to FFHEAD that makes 

; FFHEAD look like link within a FDB 

J Are we the next FDB in list? 
i Bt if not 



MAP TO R3 

MOV FF*FLK<R2),R0 

MOV FF*FLK+2 < R2 ) , R 1 

. ADDR #FFHEAD, R4 

SUB #FF*FLK, R4 

1«: CMP FF*FLK<R4), R2 

BNE 3« 

CMP FF«FLK+2<R4), R3 

BEG 6* iBr if yes 

3$: MOV FF*FLK+2(R4>/ R5 ; Get pointer to next FDB in list 

MOV FF*FLK<R4), R4 

MAPTO R5 ;Map to the next FDB 

BR 1* ; Continue search 

6*: MOV RO. FF*FLK<R4) ; Relink list around us 

MOV R 1 , FF*FLK+2 < R4 ) 



Return the FDB to the free list 



>*: 



173534 OOOOOOG 
173530 000002G 
173520 
173516 



OOOOOOG 



MAPTO 
MOV 

MOV 
MOV 
MOV 



Fini shed 



MOV 
MOV 
MOV 
MOV 
RETURN 



R3 ;Map to FDB being freed 

FFFREE, FF*FLK<R2); Put us on free list 
FFFREE+2, FF$FLK+2<R2) 
R2, FFFREE 
R3, FFFREf:+2 



(SP>+, @#KPAR5 
< SP ) +, R3 
<SP)+, R2 
<SP)+>R1 



TSLOCK 
FNDCDB 



Shared file ace: 
— Locate a CDB 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



ess cont MACRO V05. 04 Friday lS-Dec-S7 11:59 Page 27 
for a channel 

. SBTTL FNDCDB — Locate a CDB for a channel 



004354 013746 0000000 



FNDCDB is called to try to find an active CDB block for the current 
u&er and channel. 

Outputs: 
C-fiag set ==> Could not find CDB for channel. 
C-flag cleared ==> Found CDB for channel. 
R4, R5 = Pointer to CDB found. 

FNDCDB: MOV e#KPAR5. -< SP ) 

Get pointer to first CDB for job and see if job has any CDB's 



004360 
004364 
004366 
004372 



004376 
004402 
004410 
004412 
004416 
004420 
004424 
004430 



004432 
004434 



013704 
00 1 422 
013705 
113700 



OOOOOOG 

0000020 
OOOOOOG 



MOV 


e#JCDB> R4 


BEQ 


7* 


MOV 


@#JCDB+2, R5 


MOVB 


@#CHNNUM, RO 



Get pointer to 1st CDB for this job 

Br if there are none 

Get par mapping for 1st CDB 

Get channel # we are searching for 



Search CDB chain for job 



1*: 



132764 
001003 



000002G 
OOOOOOG 



OOOOOOG OOOOOOG 

120064 OOOOOOG 

00 1 407 

016405 

016404 

00 1 362 



000261 
000401 



MAPTO R5 jMap to the next CDB for job 

BITB #FL*SPN* FC*FLG<R4) ;Is this a suspended CDB? 

BNE 2* ; Br if suspended 

CMPB RO, FC*CHN<R4) i Is this the correct CDB? 

BEQ 8* j Br if yes 

MOV FC*CLK+2<R4), R5 J Get pointer to ne.xt CDB for job 

NOV FC*CLK(R4),R4 

BNE 1* iLoop if more CDB's to check 

There is no CDB for this channel 



7*: 



SEC 
BR 



i Signal failure on return 



9* 



We found a CDB for this channel 



004436 000241 



004440 
004444 



012637 
000207 



OOOOOOG 



e*: CLC 

Fini&hed 

9*: MOV (SP)+, @#KPAR5 
RETURN 



; Signal success on return 
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24 
25 



41 
42 



004446 
004450 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 

21 004454 

22 004460 

23 004464 
004470 
004474 

26 004500 

27 004504 

28 004510 

29 004512 

30 004514 

31 004520 

32 004524 

33 004526 

34 004530 

35 004532 

36 004536 
37 

38 

39 

40 004542 
004546 
004550 

43 004554 

44 004560 

45 004566 

46 004570 

47 004576 

48 004600 

49 004604 

50 004610 
51 

52 
53 

54 004612 

55 004614 
56 

57 



SBTTL FNDFDB — Locate a FDB for a file 



010446 
013746 



013700 
016003 
016004 
042703 
116002 
042702 
020337 
001006 
006302 
016203 
066204 
000402 
000302 
050203 
010367 
010467 



016702 
001421 
016703 

026267 
00 1 004 
026267 
001407 
016203 
016202 
001361 



000261 
000401 



FNDFDB is called to try to locate a FDB corresponding to a particular file. 
The 2-ujord internal identification for the file is also computed. 

Inputs: 
CHNADR = Pointer to 5 word channel status block for the channel that 
is open to the file. 

Outputs: 
C-flag set ==> Could not find FDB for file. 
C-flag cleared ===> Found FDB for file. 
R2.. R3 = Pointer to FDB. 
CURF'ID = 2 word internal file identification. 



OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC 

OOOOOOG 

177770 

OOOOOOG 



OOOOOOG 
OOOOOOG 



173350 
173346 



173312 

173306 

OOOOOOG 173320 

000002G 173312 

000002G 
OOOOOOG 



FNDFDB: MOV 
MOV 



R4, -<SP) 
@#KPAR5, -<SP) 



Build 2-word ID which uniquely identifies the file 



1*: 
7*: 



MOV 


@#CHNADR, RO 


MOV 


C. CSW<RO), R3 


MOV 


C. SBLK<R0),R4 


BIG 


#-^C<CS*NMX>, R3 


MOVB 


C. DEVQ<R0>,R2 


BIC 


#-^C<7>, R2 


CMP 


R3, e#LDDEVX 


BNE 


1* 


ASL 


R2 


MOV 


LDPDEV(R2),R3 


ADD 


LDBASE<R2)>R4 


BR 


7* 


SWAB 


R2 


BIS 


R2, R3 


MOV 


R3, CURFID 


MOV 


R4, CURFID+2 



Point to channel status block 

Get Channel Status Word 

Get file starting block number 

Get device index number 

Get unit number 

Extract unit number 

Is device a logical disk? 

Br if not 

Convert unit number to word table index 

Get real device # and unit # 

Bias starting block number by base of LD 

Put unit # in upper byte 

Form composite device ID (dev # & unit #) 
1st word of file ID (device # and unit #) 
2nd word of file ID (starting block number) 



Search for a FDB which is open to this file 



4*: 



; Get pointer to Ist active FDB 
; Br if there are no active FDB's 
; Get par mapp ing 
; Map to the FDB 



3*: 



MOV FFHEAD, R2 

BEQ 2* 

MOV FFHEAD+2, R3 

MAPTO R3 

CMP FF$FID(R2), CURFID ; Compare 1st word of file ID 

BNE 3* i Br if not this file 

CMP FF*FID+2(R2), CURFID+2 ; Compare 2nd word of file ID 

BEQ 6* i Br if found FDB for file 

MOV FF*FLK+2(R2), R3 ; Get pointer to next FDB 

MOV FF$FLK<R2),R2 

BNE 4* ; Loop if more FDB's to check 

Cannot find a FDB for this file 



?*: 



SEC 
BR 



; Signal failure on return 



9« 



Found FDB for this file 
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58 ; 

59 004616 000241 6*: CLC ; Signal success on return 

60 .: 

61 i F i n i s h e d 

62 i 

63 004620 012637 OOOOOOG 7*: MOV < SP )+, @#KPAR5 

64 004624 012604 MOV <SP)+, R4 

65 004626 000207 RETURN 
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SBTTL SFWRIT — ilonitor writes to shared files 



004630 
004632 
004634 
004636 
004640 



004644 
004650 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 



29 

30 004652 

31 004656 

32 004662 

33 004670 

34 004674 

35 004700 

36 004704 

37 004706 

38 004710 

39 004712 

40 004714 

41 004722 

42 004726 

43 004732 
44 

45 
46 

47 004734 

48 004740 

49 004742 

50 004746 

51 004752 

52 004756 
53 

54 
55 

56 004762 

57 004766 



010346 
01044t'^ 
010546 
013746 



004767 
103444 



016203 
016202 

020204 
001002 
020305 
00 1 403 
1 52762 
016203 
016202 
001362 



005737 
001410 

016402 
016403 
004767 



012637 
012605 



0000000 



177504 



016402 OOOOOOG 



0000020 
OOOOOOG 



SFWRIT is called each time a .WRITE EMT is executed to see if the 
write is being directed to a shared file. 
If the file is shared^ the following things are done: 
1. A flag is set in the CDB's for all other users indicating the 
file has been modified. 

Inputs: 
CHNNUM = Number of I/O channel 
EMTBLK+2 = File block number 
EmBLK'+-4 = Base address of user's buffer 
EMTBLK+6 = Number of words being written 

SFWRIT: MOV 
MOV 
MOV 
MOV 
MOV 



R2, -<SP) 




R3, -<SP) 




R4, -<SP) 




R5> -<SP) 




e#KPAR5, - 


"(SP) 



See if channel is opened to a shared file 



CALL 
BCS 



FNDCDB 
9* 



> See if channel is opened to a shared file 
; Br if not 



OOOOOOG OOOOOOG 

000002G 

OOOOOOG 



This is a write to a shared file. 

Set file-modified flag in CDB's for ail other jobs using this file. 

<R4, R5 = Pointer to CDB ) 

MAPTO R5 ;Map to the CDB 

MOV FC*FDB<R4), R2 > Get pointer to the FDB 

MAPTO FC*FDB+2<R4} i Map to the FDB 

MOV FF*CDB+2<R2>,R3 i Get pointer to 1st CDB for the file 

MOV FF*CDB<R2), R2 

3*: MAPTO R3 i Map to the CDB 

CMP R2, R4 i Is the same CDB that is doing the write? 

BNE 1* iBr if not 

CMP R3, R5 

BEQ 2* ; Br if yes 

BISB #FL*ACTa FC*FLG<R2); Set flag saying file has been modified 

MOV FC*FLK+2<R2.), R3 ; Get pointer to next CDB 

MOV FC*FLK<R2),R2 

BNE 3* ; Br if there is another CDB 

See if we need to check for updating the shared-file data cache 



1*: 
2*: 



OOOOOOG 



OOOOOOG 
000002G 
000532 



OOOOOOG 



TST 

BEQ 

MAPTO 

MOV 

MOV 

CALL 



9$: 



Fini shed 

MOV 
MOV 



@#NUMDCD iAre we doing data caching? 

9* ; Br if not 

R5 ;Map to the CDB 

FC*FDB<R4), R2 ; Get pointer to FDB 

FC*FDB+2<R4),R3 

DCWRT ; Check for update to data cache 



<SP)+, e#KPAR5 
<SP)+, R5 
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5B 004770 012604 

59 004772 012603 

60 004774 01260P 

61 004776 000207 



MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


< SP ) +, R2 


RETURN 





TSLOCK Shared file access cont 
** Data Caching Routines- ** 

1 

2 

3 

4 

5 

6 005000 

7 

S 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 



MACRO V05. 04 Friday 18-Dec-S7 11:59 Page 30 



SBTTL *# Data Caching Routines #«• 



25 
26 
27 



005000 
005002 
005004 
005006 

28 005010 

29 005012 
30 

31 
32 

33 005016 

34 005022 
35 

36 
37 
38 

39 005024 

40 005030 

41 005034 
42 

43 
44 

45 005040 

46 005046 

47 005054 
48 

49 
50 

51 005062 

52 005066 

53 005070 

54 005074 

55 005100 
56 

57 



010146 
010246 
010346 
010446 
010546 
013746 



004767 
103447 



0000000 



177332 



016402 
016403 



013767 
013767 



005237 
00 1 002 
004767 
004767 
103420 



OOOOOOG 
0000020 



0000020 
0000040 
000006G 



0000000 

001510 
000540 



173032 
1 73026 
173022 



Note: The code related to shared file data caching is not loaded 
unless data caching is wanted. 



DCCBAS: 



SBTTL DCRDl 



/Start of data caching code 
Tru to read data from cache 



DCRDl is called from the .READ routine to attempt to obtain 

the data needed by the read from the data cache. 

If the desired data is in the data cache, it is transferred to the 

user's buffer. 



Inputs: 
CHNWUM = # of I/O channel 

EMTBLK+2 = File block # where transfer starts 
EMTBLK+4 = Base address of user's buffer 
EMTBLK+6 = Number of words to be transferred 

Outputs: 
C-flag cleared if data was found in cache 

DCRDl: NOV R1,-<SP) 

MOV R2, -(SP) 

MOV R3, -<SP) 

MOV R4, -<SP) 

MOV R5, -<SP> 

MOV e#KPAR5, -(OP) 

See if this channel is opened to a shared file 



CALL 
BCS 



FNDCDB 
9* 



; Search for CDB for this channel 

i Br if this channel not opened to shared file 



This channel is opened to a shared file. 
Set pointer to FDB for the file. 

MAPTO R5 J Map to the CDB 

MOV FC*FDB<R4),R2 i Get pointer to the FDB 

MOV FC*FDB+2 < R4 ) , R3 

Set up information about the transfer 



MOV 
MOV 
MOV 



e#EMTBLK+2, CBLOCKi Get base block number 
e#EMTBLK+4, CBUF i Get base address of user's buffer 
@#EMTBLK+6, CWDRDSi Get # words to transfer 



Try to find data block in the cache 



1*; 



4$: 



i Inc total # reads from shared files 
> Br if did not overflow 
;Reset cache statistics 
i See if block is in cache 
j Br if block is not in cache 



Found data block in cache — Move data to user's buffer 



INC 


@#DCTRD 


BNE 


4* 


CALL 


CLRST 


CALL 


FNDDCD 


BCS 


9* 



i 



TSLOCK 
DCRDl 
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— Try to read data from cache 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



005102 
005106 



005237 
004767 



OOOOOOG 
001304 



INC 
CALL 



@#DCCRD 
DCMVTU 



; Inc # reads satisfied by cache dat« 
; Move data to user's buffer 



Increment use count for cache entry 



005 1 1 2 004767 00 1 1 72 



005116 
005122 
005130 

005136 



005267 
062767 
162767 
003351 



005140 000241 



005142 
005146 
005150 
005152 
005154 
005156 
005160 



012637 
012605 
012604 
012603 
012602 
012601 
000207 



172756 
001000 
000400 



172752 
172746 



OOOOOOG 



CALL DCINCU 

See if uie need more data 

INC CBLOCK 

ADD #512. ,CBUF 

SUB #256. , CWORDS 

BOT 1* 

Successful completion 

CLC 

F i n i shed 



?*: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



(SP)+, @#KPAR5 
(SP)+, R5 
(SP)+, R4 
(SP)+, R3 
(SP)+, R2 
(SP)+, Rl 



Increment use count for cache entry 



j Increment file block number 

j Advance buffer address 

i Dec # words left to be transferred 

j Br if more needed 



i Say read was satisfied from cache 



€ 
I 
< 

i 

i 
i 

€ 

€ 
i 
€ 
C 
i 
€ 



TSLOCK 
DCRD2 



3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



Shared file act. 
•~ Update cache 
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follouJing read 



005162 
005164 
005166 
005170 
005172 
005174 



005200 
005204 



005206 
005212 
005220 



010146 
010246 
010346 

010446 
010546 
013746 



004767 
103533 



OOOOOOG 



177150 



132764 
001125 



0000000 OOOOOOG 



004737 OOOOOOG 



005226 
005234 
005242 
005250 
005254 
005260 



005264 
005272 
005274 
005300 



005302 
005306 



013767 
013767 
013767 

016402 
016403 



026727 
103453 
004767 
103037 



004767 

103445 



000002G 172644 
000004G 172640 
000006G 172634 

OOOOOOG 
000002G 



172614 000400 
000340 



SBTTL DCRD2 -- Update cache folloming read 



DCRD2 is called folloujing a .READ operation to see if the data 
just read should be placed in the data cache. 

Inputs: 
CHNNUM = # of I/O channel 
EMTBLK+2 = File block number 
EMfBLK+4 = Base address of user's buffer 
Ei1TBLK+6 = Number of ujords transferred 



DCRD2: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2i -(SP) 
R3, -(SP) 
R4, -<SP) 
R5, -<SP) 
€l#KPAR5. -<SP) 



See if this channel is opened to a shared file 



CALL 
BCS 



FNDCDB 
9* 



i Search for CDB for this channel 

; Br if channel not open to shared file 



3*: 



See if data caching is being suppressed on this channel 

MAPTO R5 ;Map to the CDB 

BITB #FL«NDC, FC*FLG<R4); Is data caching being suppressed? 

BNE 9* i Br if yes 

We are doing data caching for this file. 
Wait for . READ operation to finish. 

CALL e#IOWAIT ;Wait for .READ to finish 

Set up data about the transfer 

MOV ©#EMTBLK+2, CBLOCK;File block number 

MOV @#EMTBLK+4, CBUF i Buf f er address 

MOV @#EMTBLK+6,CW0RDSi Number of words read 

MAPTO R5 J Map to the CDB 

MOV FC*FDB<R4),R2 » Get pointer to FDB for file 

MOV FC*FDB+2<R4),R3 

See if data block is currently in cache 

>Are there at least 256 words left? 

i Br if not — Don't have a block left 

; See if this block is in the cache 

; Br if yes — Don't need to put it there 

This data block is not currently in the cache — Put it there 



CMP 


CWORDS, #256 


BLO 


2* 


CALL 


FNDDCD 


BCC 


1* 



000646 



CALL 
BCS 



NEWDCD 
2* 



; Get a new data cache descriptor block 
; Br if no free cache descriptor blocks 



Initialize a new data cache descriptor block (pointer in R4*R5) 



TSLOCK 
DCRD2 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
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005310 
005314 
005320 
005324 
005330 
005334 
005340 
005344 
005350 
005354 
005360 
005366 



005400 
005404 
005412 
005420 



005426 
005432 
005436 
005440 
005444 
005452 
005454 
005462 
005466 
005472 



005474 
005500 
005502 
005504 
005506 
005510 
005512 



016200 OOOOOOG 

016201 000002G 
010462 OOOOOOG 
010562 000002G 

010064 OOOOOOG 

010164 000002G 

010264 OOOOOOG 

010364 000002G 

016764 172514 OOOOOOG 

012764 177777 OOOOOOG 



005267 
062767 
162767 
003321 



016204 
016205 
001416 

026427 
001010 
012764 
016405 
016404 
001362 



012637 
012605 
012604 
012603 
012602 
012601 
000207 



HAP TO 

MOV 

MOV 

MOV 

MOV 

MAP TO 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 



R3 ; Map to the FDB 

FF*DCD<R2), RO ; Get pointer to 1st DCD for file 

FF*DCD+2(R2), Rl 

R4, FF*DCD<R2) ; Set us as the Ist DCD for file 

R5, FF$DCD+2<R2) 

R5 j Map to the new DCD 

RO, DC*LNK(R4) i Add us to chain for this FDB 

Rli DC*LNK+2<R4) 

R2, DC*FDB(R4) ;Make DCD point to FDB 

R3, DC$FDB+2<R4) 

CBLOCK, DC«BLK<R4)i Remember the file block number 

#-1/ DC*USE<R4) i Temporarily set use count very high 



005374 004767 001114 



Move data from user's buffer to cache 

CALL DCMVTC ; Move data to cache 

See if there is more data to be moved to cache 



172474 

001000 172470 

000400 172464 



1«: INC CBLOCK 

ADD #512. , CBUF 

SUB #256. , CWORDS 

BGT 3* 



; Advance file block number 

j Advance buffer address 

j Reduce # words left to transfer 

; Br if more data remaining 



Reset use counters for cache blocks just added 



OOOOOOG 
000002G 



OOOOOOG 177777 

000004 OOOOOOG 

000002G 

OOOOOOG 



?$: 



4*: 



MAP TO 

MOV 

MOV 

BEQ 

MAPTO 

CMP 

BNE 

MOV 

MOV 

MOV 

BNE 



Finished 



OOOOOOG 



9*: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



R3 iMap to the FDB 

FF*DCD<R2>,R4 i Get pointer to 1st DCD for file 

FF*DCD+2(R2), R5 

9* J Br if not DCD's for file 

R5 j Map to the DCD 

DC*USE<R4) , #-1 ; Is this one that we just added? 

9* ; Br if not 

#4i DC*USE<R4) iSet initial use count 

DC*LNK+2<R4),R5 ; Chain to next DCD 

DC*LNK<R4),R4 

4* i Br if more DCD's to check 



<SP)+, e#KPAR5 
<SP)+, R5 
<SP)+, R4 
<SP>+, R3 
<SP)+, R2 
( SP ) +, R 1 
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Page 3c 



3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 

14 005514 

15 005516 
lo 

17 
18 

19 005520 

20 005526 

21 005534 
22 

24 

25 005542 

26 005546 

27 005550 

28 005554 

29 005560 
30 

31 
32 

33 005562 

34 005566 

35 005574 

36 005576 

37 005602 

38 005604 
39 

40 
41 

42 005610 

43 005614 

44 005622 

45 005630 
46 

47 
48 

49 005632 

50 005634 

51 005636 



010446 
010546 



013767 
013767 
013767 



005237 
001002 
004767 
004767 
103413 



005237 
026727 
103003 
004767 
000402 
004767 



005267 
062767 
162767 
003344 



012605 
012604 
000207 



. SBTTL DCWRT — Check for writes to shared file data cache 

DCWRT is called each time a .WRITE operation is done to a shared file. 
It checks to see if the data being written needs to be placed in the 
shared file data cache. 

Inputs: 
R2> R3 = Pointer to FDB for file being written to. 
CHNNUM = Number of I/D channel. 
EmBLR+2 = File block number 
EMTBLK+4 = Base address of user's buffer 
EMTBLK+6 = Number of words being written 



DCWRT: 



MOV 
MOV 



R4, -<SP) 
R5, -<SP) 



000002G 172352 
000004G 172346 
0000060 172342 



0000000 



Set up information about the transfer 

MOV @#EMTBLK+2, CBLOCK; Block number 

MOV e#EMTBLK+4, CBUF ; Buf f er address 

MOV @#EMTBLK+6, CWORDSj Number of words being written 

See if data block is in cache now 



001030 
000060 



6*: 



1%: 



INC 
BNE 
CALL 
CALL 



@#DCTWR 

7* 

CLRST 

FNDDCD 

5* 



i Inc total # writes to shared files 
i Br if count did not overflow 
;Re5et statistics 
;Is this block in the cache now? 
i Br if not 



Block is in cache 



Update it 



0000000 
172312 000400 

000222 

000704 



1 72264 

001000 172260 

000400 172254 



4*: 



5*: 



INC e#DCCWR 

CMP CWORDS, #256. 

BHIS 4* 

CALL RELDCD 

BR 5* 

CALL DCMVTC 



j Inc # writes that update cache 

i Do we have a full block of data? 

i Br if yes 

i Remove the cache entry if short write 



; Move data from user's buffer to cache 

See if there are more blocks to update 

i Increment block number 
{Advance buffer address 
!)S /Reduce # words left 
; Br if some data left 



INC 


CBLOCK 


ADD 


#512. , CB 


SUB 


#256. , CW 


BGT 


6$ 


inished 




MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


RETURN 





c 



TSLOCK 
FNDDCD ■ 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

& V? 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
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— Try to find data cache descriptor for data block 



005640 013746 OOOOOOG 



005644 

005650 016204 OOOOOOQ 

005654 001416 

005656 016205 000002G 

=> 016700 172212 



005666 

005672 020064 0000000 

005676 001407 

005700 016405 000002G 

005704 016404 OOOOOOG 

005710 001366 



005712 000261 
005714 000401 



005716 000241 



005720 012637 OOOOOOG 
005724 000207 



SBTTL FNDDCD 



"fry to find data cache descriptor for data block 



FNDDCD is called to try to find a data cache descriptor for a disk 
data block that is being held by the shared file data cache. 

Inputs: 
R2, R3 = Pointer to FDD for shared file. 
CBLOCK = Block number 

Outputs: 
C~fiag cleared if block is currently in cache. 
R4,R5 = Pointer to data cache descriptor block for entry if found. 

FNDDCD: MOV @#KPAR5, -(SP) 

Get pointer to 1st DCD for this file 



MAP TO 

MOV 

BEQ 

MOV 

MOV 



R3 iMap to the FDB 

FF$DCD<R2),R4 ; Get pointer to 1st DCD for file 

2* ; Br if file has no DCD's 

FF*DCD+2(R2), R5 

CBLOCK, RO ;Get file block number 



1*: 



Search for DCD for block of interest 

MAPTO R5 ;Map to the DCD 

CMP RO, DC*BLK<R4) ils this DCD for the right block? 

BEQ 3* i Br if yes 

MOV DC*LNK+2(R4), R5 i Get pointer to next DCD 

MOV DC*LNK(R4), R4 

BNE 1* iBr if more DCD's for this file 



Could not find data cache entry for this block 
^*: SEC i Signal failure on return 



SEC 
BR 



9* 



Found data cache entry for block 



3*: CLC 
Finished 



Signal success on return 



9*: 



MOV <SP)+, @#KPAR5 
RETURN 



TBLOCK 
CLSDCD 
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— Release all data cache entries for a file 



3 
4 
5 
& 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



005726 010446 
005730 010546 
005732 013746 0000000 



OOOOOOG 
0000020 



005736 

005742 016204 

005746 016205 

005752 001417 

005754 005062 OOOOOOG 

005760 005062 000002G 

005764 

005770 005064 OOOOOOG 

005774 005064 000002G 

006000 016405 000002G 

006004 016404 OOOOOOG 

006010 001365 



006012 012637 OOOOOOG 

006016 012605 

006020 012604 

006022 000207 



SBTTL CLSDCD 



Rt?lease all data cache entries for a file 



CLSDCD is called to release all data cache entries associated with 
a shared file. 



Inputs: 
R2, R3 = Pointer to FDD for the file 



CLSDCD: MOV 
MOV 
MOV 



R4, -<SP) 
R5, -<SP) 
€!#KPAR5, -<BP) 



Release all data cache blocks associated with the file 



4*: 



MAP TO 

MOV 

MOV 

BEQ 

CLR 

CLR 

MAP TO 

CLR 

CLR 

MOV 

MOV 

BNE 



Finished 



5*: 



MOV 
MOV 
MOV 
RETURN 



R3 ;Map to the FDB 

FF*DCD(R2>,R4 j Point to 1st DCD 

FF*DCD+2<R2),R5 

5* ; Br if no data cache descriptors for file 

FF*DCD(R2) iSay FDB has no associated cache descriptors 

FF*DCD+2(R2) 

R5 ; Map to data cache descriptor 

DC*FDB<R4> ;Say data cache descriptor is free 

DC*FDB+2(R4) 

DC*LNK+2(R4), R5 ; Get pointer to next DCD 

DC*LNK<R4), R4 

4* i Br if more DCD's to free 



<SP)+, @#KPAR5 
<SP)+, R5 
(SP)+, R4 



t 
f 
i 
I 
< 
I 
< 
I 

i 
i 
i 

i 

€ 

i 
i 
i 
i 
i 
i 

i 
i 



i 

< 
i 
i 
i 
i 
c 
i 
i 
i 
i 
i 
I 
I 
i 
i 
i 
i 
i 
i 
i 
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RELDCD — Release a data cache entry 

. SBTTL RELDCD — Release a data cache entry 



2 








3 








4 








5 








6 








7 








8 








9 


006024 


010146 




10 


006026 


010246 




11 


006030 


010346 




12 


006032 


013746 


OOOOOOG 


13 








14 








15 








16 


006036 






17 


006042 


016400 


OOOOOOG 


18 


006046 


016401 


000002G 


19 


006052 


016402 


OOOOOOG 


20 


006056 


016403 


000002G 


21 


006062 


005064 


OOOOOOG 


22 


006066 


005064 


000002G 


23 


006072 


062702 


OOOOOOC 


24 


006076 






25 


006102 


026204 


OOOOOOG 


26 


006106 


001003 




27 


006110 


026205 


000002G 


28 


006114 


001405 




29 


006116 


016203 


000002G 


30 


006122 


016202 


OOOOOOG 


31 


006126 


000763 




32 


006130 


010062 


OOOOOOG 


33 


006134 


010162 


000002G 


34 








35 








36 








37 


006140 


012637 


OOOOOOG 


38 


006144 


012603 




39 


006146 


012602 




40 


006150 


012601 




41 


006152 


000207 





RELDCD is called to release (deallocate) a data cache entry and 
mark it as free. 



Inputs: 
R4, R5 = Pointer to DCD to be released. 



RELDCD: MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -(SP) 
R3, -(SP) 
@#KPAR5, -(SP) 



Unlink DCD from linked list associated tuith shared file 



1*: 



3«: 



2*: 



MAP TO 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 

ADD 

MAP TO 

CMP 

BNE 

CMP 

BECJ 

MOV 

MOV 

BR 

MOV 

MOV 



Finished 



MOV 
MOV 
MOV 
MOV 
RETURN 



R5 i Map to the DCD 

DC*LNK(R4>, RO ; Get pointer to DCD that follows our one 

DC*LNK+2(R4)>R1 

DC*FDB(R4),R2 i Get pointer to FDB 

DC*FDB+2(R4), R3 

DC*FDB(R4) ;Mark the DCD as free 

DC«FDB+2(R4) 

#FF*DCD-DC*LI\JK. R2 ;Fake pointer to link cell 

R3 ; Map to the next DCD (or FDB if 1st time) 

DC*LNK(R2),R4 ; Are u>e next DCD on list? 

3* i Br if not 

DC*LNK+2(R2), R5 

2* ; Br if yes 

DC*LNK+2(R2), R3 ; Get pointer to next DCD 

DC*LNK(R2),R2 

1* /Go chec k it 

RO, DC*LNK(R2) /Relink chain around us 

R1/DC*LNK+2(R2) 



(SP)+, @#KPAR5 
(SP)+/R3 
(SP)+, R2 
(SP)+/ Rl 



TSLDCK 


Shared 


file access cont 


NEWDCD - 

1 

2 
3 


— Locat 


e a free 


data ca 








4 








5 








6 








7 








e 








9 








10 


006154 


010146 




11 


006156 


010246 




12 


006160 


010346 




13 


006162 


013746 


OOOOOOG 


14 








15 








16 








17 


006166 


013701 


OOOOOOG 


IS 


006172 


016704 


171676 


19 


006176 


016705 


171674 


20 


006202 


012700 


177777 


21 


006206 






22 


006212 


005764 


OOOOOOG 


23 


006216 


001425 




24 


006220 


026400 


OOOOOOG 


25 


006224 


103004 




26 


006226 


010402 




27 


006230 


010503 




28 


006232 


016400 


OOOOOOG 


29 


006236 


016405 


000002G 


30 


006242 


016404 


OOOOOOG 


31 


006246 


077121 




32 








33 








34 








35 








36 


006250 


020027 


177777 


37 


006254 


001002 




38 


006256 


000261 




39 


006260 


000405 




40 








41 








42 








43 


006262 


010204 




44 


006264 


01030J? 




45 


006266 


004767 


177532 


46 


006272 


000241 




47 








48 








49 








50 


006274 


012637 


OOOOOOG 


51 


006300 


012603 




52 


006302 


012602 




53 


006304 


012601 




54 


006306 


000207 
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de&criptor 

. SBTTL NEWDCD — Locate a free data cache descriptor 

NEWDCD is called to find a data cache descriptor to be used for a 

new cache entry. It finds a free entry or the least used non-free entry. 

Outputs: 
C-flag set on return if there are no free entries. 
R4, R5 = Pointer to new entry if one was found. 



t 



NEWDCD: MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -<SP> 
R3, -<SP) 
@#KPAR5, -<SP) 



Search for a free or least-used data cache descriptor 



1*: 



2*: 



MOV 


@#NUMDCD, R 1 


MOV 


DCDBAS, R4 


MOV 


DCDBAS+2, R5 


MOV 


#-l,RO 


MAP TO 


R5 


TST 


DC«FDB(R4) 


13 EQ 


4* 


CMP 


DC*USE<R4)>R0 


BHIS 


2* 


MOV 


R4, R2 


MOV 


R5, R3 


MOV 


DC*USE(R4),R0 


MOV 


DC*NXT+2<R4>, 


MOV 


DC*NXT<R4),R4 


SOB 


Rl, 1* 



Max # cache entries we are allowed to use 
Point to 1st data cache descriptor 

Initialize use count 

Map to the DCD 

Is this cache entry free? 

Br if yes — Use this entry 

Is this entry less used than any found so far 

Br if not 

Save pointer to least used entry 

j Save associated use count 
i Get pointer to next DCD 

; Loop if we are allowed to use more 



Finished searching through all cache descriptors. 
See if we found one we can use. 



CMP 
BNE 
SEC 



RO, #-1 

3* 



iDid we find an available one? 

; Br if yes 

; Signal failure on return 



BR 9* 
We found a cache entry that we can use 



3*: 



4$: 



9*: 



MOV 


R2, R4 


MOV 


R3, R5 


CALL 


RELDCD 


CLC 




Finished 




MOV 


<SP)+, @#KPAR5 


MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





> Get pointer to entry to use 

j Free the entry 

; Signal success on return 



TSLOCK 
DCINCU 
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— Increment use count for data cache entry 



i 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
20 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



, SBTTL DCINCU — Increment use count for data cache entry 

DCINCU is called to increment the use counter for a data cache entry. 
If the total number of increments done for ail entires reaches 
DCAOE, all of the use counts are divided by tmo. 

Inputs: 
R4» R5 = Pointer to data cache descriptor which is to be incremented. 



006310 010246 
006312 010346 
006314 013746 OOOOOOG 



006320 005237 OOOOOOG 

006324 023727 OOOOOOG OOOOOOG 

006332 103417 



006334 005037 OOOOOOG 

006340 016702 171530 

006344 016703 171526 
006350 

006354 006262 OOOOOOG 

006360 016203 000002G 

006364 016202 OOOOOOG 

006370 001367 



006372 

006376 062764 000002 OOOOOOG 



006404 012637 OOOOOOG 

006410 012603 

006412 012602 

006414 000207 



DCINCU: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
@#KPAR5, - <BP> 



See if it is time to divide all use counts 



INC 
CMP 
BLO 



@#DCTOTU 



; Increment total use count 



e#DCTOTU, #DCAGE ;Is it time to divide all use counts? 



?* 



Divide all use counts by two 



1*: 



CLR 

MOV 

MOV 

MAP TO 

ASR 

MOV 

MOV 

BNE 



e#DCTOTU 
DCDBAS, R2 
DCDBAS+2, R3 
R3 
DC*USE<R2> 



; Br if not 



; Reset total use counter 
/Get pointer to 1st DCD 



; Map to a DCD 

; Divide the use count by 2 
DC*NXT+2<R2.n R3 i Get pointer to next DCD 
DC*NXT<R2),R2 
1* j Loop if more to do 



Increment use count for specified entry 



2*: 



MAP TO 


R5 


ADD 


#2i DC«USE<R4) 


Finished 




MOV 


<SP)+, @#KPAR!5 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





; Map to the entry 

> Increment use count 
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TSLOCK 


Shared 


file access cont 


DCMVTU - 

1 
2 

3 


— Move 


data from cache 








4 








5 








6 








7 








8 








9 








10 


006416 


010246 




11 


006420 


010346 




12 


006422 


013746 


OOOOOOG 


13 








14 








15 








16 


006426 


016703 


171450 


17 


006432 


010300 




18 


006434 


004737 


OOOOOOG 


19 








20 








21 








22 


006440 






23 


006444 






24 








25 








26 








27 


006452 


012702 


OOOOOOG 


28 


006456 


012700 


000400 


29 


006462 


026700 


171416 


30 


006466 


103002 




31 


006470 


016700 


171410 


32 


006474 


012246 




33 


006476 


106623 




34 


006500 


077003 




35 








36 








37 








38 


006502 


012637 


OOOOOOG 


39 


006506 


012603 




40 


006510 


012602 




41 


006512 


000207 





. SBTTL DCMVTU — Move data from cache to user's buffer 

DCMVTU is called to move data from a cache entry to the user's buffer. 

Inputs: 
R4>R5 = Pointer to data cache descriptor 
C13UF = Virtual address of user's data buffer 
CWORDS = Number of words to move 



DCMVTU: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
@#KPAR5, -(SP) 



Validate the buffer address 



MOV 


CBUF, R3 


MOV 


R3, RO 


CALL 


@#VALADW 



; Get the buffer address 
iValidate it 



Map par 5 to the cache buffer 



MAP TO 
MAPTO 



R5 
DC*PAR<R4) 



;Map to the DCD 

■> Map par 5 to cache buffer 



Move data from cache to user's buffer 



1$: 



MOV 


#VPAR5, R2 


MOV 


#256. , RO 


CMP 


CWORDS, RO 


BHIS 


1* 


MOV 


CWORDS. RO 


MOV 


<R2)+,-<SP) 


MTPD 


(R3) + 


SOB 


RO, 1* 


i n i B h e d 




MOV 


(SP)+, @#KPAR5 


MOV 


(SP)+, R3 


MOV 


( SP ) +, R2 


RETURN 





; Get virtual address of cache buffer 

; Get max # words me can move 

; Do we have that much to move? 

; Br if yes 

/Get # words to move 

i Get word from cache buffer 

j Move to user's buffer 

; Loop if more words to move 



( 



TSLOCK 


Shared 


file act: 


ess cont 


DCMVTC - 


— Move 


data from ur,er'& 


1 

2 








3 








4 








5 








6 








7 








S 








9 








10 


006514 


010246 




11 


006516 


010346 




12 


006520 


013746 


OOOOOOG 


13 








14 








15 








16 


006524 


016703 


171352 


17 


006530 


010300 




18 


006532 


004737 


OOOOOOG 


19 








20 








21 








22 


006536 






23 


006542 






24 








25 








26 








27 


006550 


012702 


OOOOOOG 


28 


006554 


012700 


000200 


29 


006560 


106523 




30 


006562 


012622 




31 


006564 


106523 




32 


006566 


012622 




33 


006570 


077005 




34 








35 








36 








37 


006572 


012637 


OOOOOOG 


38 


006576 


012603 




39 


006600 


012602 




40 


006602 


000207 
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buffer to cache 



. SBTTL DCMVTC — Move data from user's buffer to cache 

DCMVTC is called to move a block of data (256 words) from the user's 
buffer to a cache buffer. 

Inputs: 
R4.. R5 = Pointer to cache descriptor block 
CBUF = Virtual address of user's buffer 



DCMVTC : MOV 
MOV 

MOV 



R2, ~<SP> 
R3, -<SP) 
e#KPAR5, -(SP) 



Validate the buffer address 



MOV 


CBUF, R3 


MOV 


R3, RO 


CALL 


e#VALADW 



.; Get user's buffer address 
; Val idate it 



Map par 5 to the cache buffer 



MAP TO 
MAP TO 



R5 
DC*PAR<R4) 



>Map to the DCD 

; Map to the cache buffer 



Move data from user's buffer to the cache buffer 



1*: 



MOV 


#VPAR5, R2 


MOV 


#128. ,R0 


MFPD 


<R3) + 


MOV 


(SP)+, <R2)+ 


MFPD 


(R3) + 


MOV 


<SP)+, <R2)+ 


SOB 


RO, 1* 


Finished 




MOV 


<SP)+, e#KPAR5 


MOV 


<SP)+, R3 


MOV 


<SP)+. R2 


RETURN 





; Get virtual address of cache buffer 

j Move 128 double -words 

; Get a word from user's buffer 

; Move to cache buffer 

; Get another word from user's buffer 

j Move to cache buffer 

i Loop if more to move 



i 

f 

I 

I 

I 

I 

( 

i 

i 

i 

i 

i 

€ 

i 
i 
i 
i 
i 
i 
i 



i 
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CLRST — Reset data cache statistics 



1 
2 
3 
4 
5 

6 006604 005037 OOOOOOG 

7 006610 005037 0000000 

8 006614 005037 OOOOOOG 

9 006620 005037 OOOOOOG 
10 

11 
12 

13 006624 000207 
14 
15 
16 

17 001626 

18 

19 000001 

Errors detected: 

*** Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 8518 Words < 34 Pages) 

Size of core pool: 17920 Words < 70 Pages) 

Operating system: RT-11 

Elapsed time: 00:01:26.05 

DK: TSLOCK, LP: TSLOCK=DK: TSLOCK. MAC/C/N: SYM 



. SBTTL CLRST 



— Reset data cache statistics 



CLRST is called to reset the usage statistics counters that 
accumulate data regarding data caching. 



CLRST: 


CLR 


e#DCTRD 




CLR 


@#DCCRD 




CLR 


©#DCTWR 




CLR 


@#DCCWR 



J Total number of reads from shared files 
J Number of reads satisfied by cache 
; Total number of writes to shared files 
; Number of writes that update cache data 



Finished 

RETURN 
Compute size of code related to data caching 
DCCSIZ ~ . -DCCBAS ;Size of data caching code 
. END 



f 
f 
f 
I 

< 

i 

i 

€ 

i 
i 

€ 

I 

i 
i 

i 

f 
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Cross reference table <CREF V05. 04) 



. . . V2 


16-29 


16-29 


16-29 


16-29 


16-29 


16-29 


16-29 


16-29 


16-29 


16- 


-29 


16-29 


16- 


-29 




16-29 


16-29 


16-29 


16-29 


16-29# 


16-29# 


16-29# 


17-21 


17-21 


17- 


-21 


17-21 


17- 


-21 




17-21 


17-21 


17-21 


17-21 


17-21 


17-21 


17-21 


17-21 


17-21 


17- 


-21 


17-21 


17- 


-21 # 




17-21# 


17-21# 


26-18 


26-18 


26-18 


26-18 


26-18 


26-18 


26-18 


26- 


-IS 


26-18 


26- 


-18 




26-18 


26-18 


26-18 


26-18 


26-18 


26-18 


26-18# 


26-lS# 


26-18# 












AC*EI 


3-ll# 


3-23 


























AC*EU 


3-10# 


3-24 


























AC*PI 


3-9# 


3-25 


3-35 


3-37 






















AC*PU 


3-e# 


3-26 


3-37 
























AC*SI 


3-7# 


3-27 


3-35 


3-36 


3-37 


3-38 


















AC*SU 


3-6# 


3-20 


3-37 


3-38 






















ACCBIT 


3-23# 


17-21 


17-21 
























ACCMSK 


3-33# 


16-29 


16-29 
























ALLOC 


4-29 


4-43 


4-59 


4-74 


5-24 


6-16# 


















ALLOCL 


4-25 


4-39 


4-55 


4-70 


5-15# 




















C. CSW 


1-42 


8-22 


28-22 
























C. DEVQ 


1-42 


28-25 


























C. SBLK 


1-42 


28-23 


























CBLOCK 


3-48# 


30-45* 


30-68* 


31-37* 


31-68 


31-77* 


32-19* 


32-42* 


33-22 












CBUF 


3-49# 


30-46* 


30-69* 


31-38* 


31-78* 


32-20* 


32-43* 


38-16 


39-16 












CHKABT 


1-38 


21-25 


























CHKACC 


8-94 


17-14# 


























CHKLOK 


19-71 


20-14# 


























CHNADR 


1-34 


8-21 


28-21 
























CHNNUM 


1-35 


10-31 


10-59 


16-24 


27-18 




















CHNULK 


13-17 


14-29 


19-33 


22-9# 


25-17 




















CLRST 


30-53 


32-27 


40-6# 
























CLSCDB 


1-70 


8-17 


8-61 


8-103 


18-18 


25-10# 


















CLSDCD 


8-98 


25-72 


34-9# 
























CORUSR 


1-34 


10-25 


16-23 


20-27 


21-37 


24-27 


















CS*NMX 


1-43 


28-24 


























CS*OPN 


1-43 


8-22 


























CURFID 


3-54# 


8-86 


8-87 


28-35* 


28-36* 


28-44 


28-46 
















CWORDS 


3-50# 


30-47* 


30-70* 


31-39* 


31-46 


31-79* 


32-21* 


32-34 


32-44* 


38- 


-29 


38-31 






DC**SZ 


1-34 


4-67 


























DC*BLK 


1-30 


31-68* 


33-27 
























DC*FDB 


1-37 


31-66* 


31-67* 


34-22* 


34-23* 


35-19 


35-20 


35-21* 


35-22* 


36- 


-22 








DC*LNK 


1-37 
35-25 


31-64* 
35-27 


31-65* 
35-29 


31-92 
35-30 


31-93 
35-32* 


33-29 
35-33* 


33-30 


34-24 


34-25 


35- 


-17 


35-18 


35- 


■23 


DC*NXT 


1-36 


4-71* 


4-72* 


4-84 


4-85 


36-29 


36-30 


37-27 


37-28 












DC*PAR 


1-36 


4-82* 


38-23 


39-23 






















DC*USE 


1-37 


31-69* 


31-89 


31-91* 


36-24 


36-28 


37-26* 


37-34* 














DCAGE 


1-31 


37-17 


























DCCBAS 


30-6# 


40-17 


























DCCRD 


1-30 


30-59* 


40-7* 
























DCCSIZ 


1-23 


40-17# 


























DCCWR 


1-31 


32-33* 


40-9* 
























DCDBAS 


3-47# 


4-65* 


4-66* 


4-78 


4-79 


36-18 


36-19 


37-23 


37-24 












DCINCU 


30-64 


37-10# 


























DCMVTC 


31-73 


32-38 


39-104i 
























DCMVTU 


30-60 


38-i0# 


























DCRDl 


1-71 


30-24# 


























DCRD2 


1-72 


31-12# 


























DCTOTU 


1-31 


37-16* 


37-17 


37-22* 






















DCTRD 


1-30 


30-51* 


40-6* 
























DCTWR 


1-30 


32-25* 


40-e* 
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DCWRT 


29-52 


32-J4# 
























DOC OP N 


1-60 


8-6# 
























DOCULK 


1-65 


13-6# 
























DOOPAP 


1-59 


7-1 4# 
























DORLK 


1-63 


11 -6# 
























DOSFCK 


1-67 


15-10# 
























DOTLK 


1-64 


12-6# 
























DOULKl 


1-66 


14-6# 
























ECO 


2-4# 


























ECl 


2-5# 


8-27 


11-15 


12-12 


13-12 


14-12 
















EC2 


2-6# 


8-35 


1 5-26 


19-107 




















EC3 


2-7# 


8-62 


12-30 






















EC4 


2-8# 


8-104 


12-36 






















EMTBLK 


1-34 
32-20 


7-14 
32-21 


11-21 


12-17 


14-23 


30-45 


30-46 


30-47 


31-37 


31-38 


31-39 


32- 


-19 


EMTXIT 


1-43 


8-123 


1 1 -40 


12-24 


13-21 


14-46 


15-31 














ENQTL 


1-27 


24-34 
























FC**SS 


1-43 


























FC*ACC 


1-29 


16-31* 


17-36 






















FC*CHN 


1-28 


10-31 


10-59* 


16-24* 


27-25 


















FC*CLK 


1-29 


4-56* 


4-57* 


8-40 


8-41 


16-35* 


16-36* 


25-22 


25-23 


25-24 


25-25 


25- 


-27 




25-29 


25-30 


25-33* 


25-34* 


25-39* 


25-40* 


27-27 


27-28 












FC*FDB 


1-28 


8-118* 


8-119* 


12-32 


12-33 


19-49 


19-50 


21-20 


21-21 


23-23 


23-24 


25- 


-49 




25-50 


29-31 


29-32 


29-50 


29-51 


30-40 


30-41 


31-41 


31-42 










FC*FLG 


1-39 
23-22* 


9-20* 
27-23 


10-27 
29-40* 


10-45 
31-27 


10-60* 


14-18 


1 5-20 


15-25* 


16-27* 


19-25 


19-86* 


22- 


-16 


FC$FLK 


1-28 


8-116* 


8-117* 


10-33 


10-34 


10-49 


10-50 


17-41 


17-42 


20-45 


20-46 


25- 


-47 




25-48 


25-54 


25-56 


25-58 


25-60 


25-61 


25-63* 


25-64* 


29-41 


29-42 








FC*LBN 


1-29 


1-36 


4-51 


14-35 


16-20 


19-41 


19-96 


20-37 


22-26 










FC*NLB 


1-43 


19-38 


19-87* 


19-93 


19-100* 


20-32 


23-21* 














FC*UN 


1-29 


10-29 


10-47 


16-23* 


20-34 


















FCFREE 


3-45# 


4-47* 


4-48* 


8-33 


8-37 


8-40* 


8-41* 


25-39 


25-40 


25-41* 


25-42* 






FF**SZ 


1-36 


4-35 


8-73 






















FF$CDB 


1-32 
20-26 


8-111 
25-54 


8-112 
25-77 


8-113* 
29-33 


8-114* 
29-34 


10-22 


10-23 


10-42 


10-43 


17-29 


17-30 


20- 


-24 


FF*DCD 


1-40 
34-20* 


31-59 
35-23 


31-60 


31-61* 


31-62* 


31-85 


31-86 


33-19 


33-21 


34-16 


34-17 


34- 


-19# 


FF*FID 


1-32 


8-86* 


8-87* 


28-44 


28-46 


















FF*FLG 


1-39 


12-34 


19-64 


19-83* 


23-27* 


















FF$FLK 


1-32 


4-40* 


4-41* 


8-70 


8-71 


8-79* 


8-80* 


26-16 


26-17 


26-19 


26-20 


26- 


-22 




26-24 


26-25 


26-28* 


26-29* 


26-34* 


26-35* 


28-48 


28-49 












FF*FWD 


1-32 


21-46 


21-68 


23-31 


23-32 


















FF*NLB 


1-39 


19-56 


19-84* 


19-102* 


23-26* 


23-54 
















FFFREE 


3-43# 


4-33* 


4-34* 


8-56 


8-68 


8-70* 


8-71* 


26-34 


26-35 


26-36* 


26-37* 






FFHEAD 


3-44# 


8-79 


B-SO 


8-81* 


8-82* 


26-18 


26-18 


28-40 


28-42 










FL*ACT 


1-29 


1 5-20 


15-25 


29-40 




















FL«EFL 


1-39 


14-18 


19-25 


19-86 


22-16 


23-22 
















FL*NDC 


1-30 


16-27 


31-27 






















FL*SPN 


1-29 


9-20 


10-27 


10-45 


10-60 


27-23 
















FNDCDB 


8-11 


9-13 


11-10 


12-10 


13-10 


14-10 


15-14 


18-12 


27-1 1# 


29-23 


30-33 


31- 


-21 


FNDDCD 


30-54 


31-48 


32-28 


33-14# 




















FNDFDB 


8-50 


10-14 


28-16# 






















FREFDB 


25-83 


26-8# 
























FT*EFL 


1-39 


12-34 


19-64 


19-83 


23-27 


















FW**SZ 


1-36 


4-20 
























FW*DBN 


1-33 


21-38* 


23-41 


23-48 


23-56 


23-61 
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FW*UN 


1-33 


21-37* 


24-15 






















FW*WLK 


1-33 


4-26* 


4-27* 


21-32 


21-33 


21-39* 


21-40* 


21-46 


21-48 


21-50 


21-51 


21- 


-53* 




21-54« 


21-66 


21-67 


21-68 


21-70 


21-72 


21-74 


21-75 


21-77* 


21-78* 


21-83* 


21- 


-84* 




23-44 


23-45 


23-63 


23-64 




















FWFREE 


3-46# 


4-21* 


4-22* 


21-29 


21-30 


21-32* 


21-33* 


21-83 


21-84 


21-85* 


21-86* 






INICDB 


8-46 


16-1 1# 
























lOWAIT 


1-30 


31-33 
























JCDB 


1-35 


16-35 


16-36 


16-37* 


16-38* 


25-24 


27-15 


27-17 












KPAR5 


1-43 


4-11 


4-81* 


4-90* 


5-28* 


6-22* 


8-39* 


8-69* 


8-110* 


8-115* 


9-9 


9- 


-19* 




9-24* 


10-10 


10-21* 


1 0-26* 


10-41* 


10-44* 


10-64* 


12-31* 


12-33* 


14-17* 


15-19* 


16- 


-13 




16-17# 


16-42* 


17-17 


17-28* 


17-35* 


17-56* 


1S~8 


18-22* 


19-19 


19-24* 


19-55* 


19- 


-82* 




19-85* 


19-92* 


19-101* 


19-124* 


20-19 


20-23* 


20-31* 


20-60* 


21-15 


21-19* 


21-31* 


21- 


-47* 




21-65* 


21-69* 


21-82* 


21-90* 


22-11 


22-15* 


22-36* 


23-15 


23-20* 


23-25* 


23-40* 


23- 


-47* 




23-55* 


23-74* 


24-10 


24-14* 


24-38* 


25-13 


25-21* 


25-31* 


25-38* 


25-55* 


25-76* 


25- 


-87* 




26-11 


26-15* 


26-26* 


26-33* 


26-41* 


27-11 


27-22* 


27-42* 


28-17 


28-43* 


28-63* 


29- 


-19 




29-30* 


29-32* 


29-35* 


29-49* 


29-56* 


30-29 


30-39* 


30-79* 


31-17 


31-26* 


31-40* 


31- 


-58* 




31-63* 


31-84* 


31-88* 


31-98* 


33-14 


33-18* 


33-26* 


33-44* 


34-11 


34-15* 


34-21* 


34- 


-30* 




35-12 


35-16* 


35-24* 


35-37* 


36-13 


36-21* 


36-50* 


37-12 


37-25* 


37-33* 


37-38* 


38- 


-12 




38-22* 


38-23* 


38-38* 


39-12 


39-22* 


39-23* 


39-37* 














LDBASE 


1-37 


28-31 
























LDDEVX 


1-41 


28-27 
























LDPDEV 


1-41 


28-30 
























LKWAIT 


11-35 


21-10# 
























LOKCSH 


1-35 


4-ao 
























LOKINI 


1-58 


4-6# 
























LOKMEM 


1-37 


4-16 
























LPRI 


1-27 


24-31 


24-31 






















LSTATE 


1-27 


24-28 


24-29 






















NEWDCD 


31-53 


36~10# 
























NLINES 


1-33 


4-23 
























NUMCDB 


1-31 


8-38* 


25-43* 






















NUMDCD 


1-35 


8-96 


25-70 


29-47 


36-17 


















OPNCOM 


7-15 


s-n# 
























QHIPRI 


1-38 


24-19 
























QNSPND 


1-38 


21-i59 
























RELDCD 


32-36 


35-9# 


36-45 






















RESTRT 


23-43 


23-70 


24 -8# 






















S*SFWT 


1-38 


21-50 
























SETERR 


1-43 


8-28 


8-36 


8-63 


S-105 


11-16 


1 1 -30 


12-13 


12-37 


13-13 


14-13 


15- 


-27 


SFCLS 


1-68 


1 8-6# 
























SFRSST 


1-62 


10-6# 
























SFSVST 


1-61 


9~7# 
























SFWRIT 


1-69 


29-1 5# 
























TRYLK 


11-26 


12-19 


19-17# 






















TSLOCK 


1-23 
1-68 


l-54« 
1-69 


1-58 
1-70 


1-59 
1-71 


1-60 
1 -72 


1-61 


1 -62 


1-63 


1-64 


1-65 


1-66 


1- 


■67 


UNLOCK 


14-41 


22-19 


22-30 


23-10# 




















VALADW 


1-31 


38-18 


39-18 






















VMLBLK 


1-34 


4-49 


14-36 


16-19 


19-42 


19-93 


20-38 


22-27 












VMXSF 


1-33 


4-36 
























VMXSFC 


1-33 


4-52 
























VNUMDC 


1-34 


4-63 
























VPAR5 


1-37 


4-15 


6-28 


6-33 


6-38 


38-27 


39-27 
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. ADDR 


1-19# 


16-29 


17-21 


26-18 


















MAPTO 


l-47# 


4-81 


5-28 


6-22 


8-39 


8-69 


8-110 


8-115 


9-19 


10-21 


10-26 


10-41 




10-44 


12-31 


12-33 


14-17 


15-19 


16-17 


17-28 


17-35 


19-24 


19-55 


19-82 


19-85 




19-92 


19-101 


20-23 


20-31 


21-19 


21-31 


21-47 


21-65 


21-69 


21-82 


22-15 


23-20 




23-25 


23-40 


23-47 


23-55 


24-14 


25-21 


25-31 


25-38 


25-55 


25-76 


26-15 


26-26 




26-33 


27-22 


28-43 


29-30 


29-32 


29-35 


29-49 


30-39 


31-26 


31-40 


31-58 


31-63 




31-e4 


31-S8 


33-18 


33-26 


34-15 


34-21 


35-16 


35-24 


36-21 


37-25 


37-33 


38-22 




38-23 


39-22 


39-23 





















